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Editorial 



Peut-etre etes-vous allonges sur une plage ensoleil- 
lee au moment ou vous li3ez ces lignes ? Vous prefe- 
rez plutot la campagne ou la montagne ? Peu importe : 
vous etes surement en vacances ou pas loin de l'etre, 
et votre ordinateur va pouvoir se rcpoaer un peu lui 
aussi ! Si vous ecrivez des cartes postales, vou^ a- 
vez probablement un stylo a portee de la main : le 
moment n'est-il pas bien choisi pour repondre a notre 
enquete "Lecteurs qui etes-vous ?" Un petit effort, 
il y a encore beaucoup de retardataires ! (En parlant 
de retard... vous n'avez pas ete sans remarquer que 
nou3 avons pris une certaine avance sur... nctre re- 
tard habituel de parution ! ) Et pendant que vous te- 
nez le stylo, vous pouvez aussi en profiter pour ecri- 
re un petit article... hmm ? Rien qu'un "cote court" 
sur une carte postale... ! Merci d'y penser et bonnes 
vacances a tous ! 

Quant a TANDY, 11 est actuellement loin de s'endormir 
au soleil, meme si celui du Texas est tres chaud ! 
Apres un temps couvert, quelques eclairs de bon augu- 
re annoncent l'arrivee du ciel bleu : le modele 4 
(qui est un "super" modele 3 deja en fabrication dans 
l'usine MATRA-TANDY) , le modele 100 (puissant ordina- 
teur portable mais presentant beaucoup de caracteris- 
tiques d'un ordinateur de table) et tout dernierement 
le MC10 (ordinateur domestique off rant la couleur pour 
un prix inferieur a celui du SPECTRUM de Sinclair (120 
$ aux Etats-Unis) . . . Oui , l'arriere-saison devrait e- 
tre belle ! 
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TRS-80 modele 1, TRS-80 
modele 2, TRS-80 modele 3, 
TRS-80 couleur, TRS-80 
de poche, poquettes Sharp* 
Video-Genie*, LNW* : 
si vous utilisez ou si vous 
comptez acheter un de ces 
ordinateurs, sachez que la revue 
TRACE a ete creee pour vous. 
TRACE vous fournit quatre 
fois par an des programmes, 
des astuces, de nouvelles idees 
d'applications. TRACE est 
independant de tout constructeur, 

et vous tient au courant de toutes 

les nouveautes dans les domaines w ' des logiciels, des materiels et des 

peripheriques, quelle qu'en soit la source. TRACE teste pour vous, en toute objectivite 
et independance, les produits materiels ou logiciels qui vous interessent. TRACE n'est 
pas en vente chez les marchands de journaux. Pour vous abonner ou pour recevoir un 
numero, il vous suffit de nous retoumer le bon de commande ci-dessous. 



*TRS 80. Sharp. Video-Geme a\ LNW sont des marques deposees 



Trace a le meme editeur qu'ORDI-S le magazine des utilisateurs de ZX SINCLAIR 



TRACE, le complement indispensable de votre TRS-80 



Norn 

Adresse 
Pays 



BON DE COMMANDE 

a retoumer a TRACE, 8 rue Saint-Marc 75002 PARIS 



Profession 



Code postal 



Ville 



• Je desire recevoir le n" 3 IJ lenMl len"5l de TRACE (NB les n"" 1 et 2 sont epuises). 
(Prix dun n° 30 F : ; Etranger** 35 FF; par avion 50 FF). 

• Je desire recevoir la disquette d'accorrpagnement des n°* 1 el 2 1 3 du n° 3 J du n° 4 Q du n° 5 I 
(Prix dune disquette 55 FF; Etranger*" 65 FF). 

• JedesiremabonneraTRACEpour4n "apartirdun 3LJ dun°4D dun°5L. dun°6LI 
D avec disquette (Tarif France : 290 FF; Etranger** : 320 FF; par avion 400 FF). 

C sans disquette (Tarif Trance : 105 FF: Etranger** : 120 FF; par avion 190 FF). 
(Actuellemenl TRACE est trimestriel). Ci-joint mon reglemenl indispensable par cheque bancaire U cheque postal i I 

•• Pour IBS payr. autre:'; que la France ulihsei un virement en FF cornote Credit Lyonnaif. Pans n" 3000200402 8401 M Les liats de vnemcnl sont a la charge 
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LOGICIELS LIVRES ET PERIPHERIQUES POUR TRS-80* 

(Module 1 et Module 3) ET VIDEO-GENIE 



LOGICIELS 

THE BATTLE FOR 
NORMANDY : Excellent ™ 5 «n. 

simulant la debarquement allie an Noi- 
mandie an juin 1944. ]au an solitaire con- 
he l'ordinateur qui peul lenir indiflerem- 
mant la camp allamand ou la camp alii*. 
Utilise tomes les unites histonques an 
tenant compta da leui force relative. Ope- 
rations aeroporteea dans .a null du 5 au 6 
juin. Obiectii du camp allamand : repoua- 
tai les forces alUeee. Objectif du camp 
•Ilia : debarquer al s'emparer au plus vita 
da Caen, Cherbourg at Saint-Lc-. Un jeu 
paasionnant et de tree haute qualite sign* 
Strategic Simulations Inc. (S.S.I.). 
Cassette pour TRS-80 1 et 3 et Video- 
Genie (ie k> 

440 F t.t.C. 
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NORMANDY 




EDITEUR-ASSEMBLEUR 
PLUS DE MICROSOFT : outii de 

base pour programmer en langage 
michine, L'Edlteur (erremement bien 
concu) permet d'bntror dea codes mne- 
moniquea Z-80 que le programme Assem- 
bleur traniformera an codes machine 
directement exploitable! par le micropro- 
cesseur Z-80. Compone aussi un utiiitatre 
de mise au point des programmes en lan- 
gage machine. Fouml avec le manual 
d'utillsetlon en traaeaia. 
Caaaette pour TRS80 modele 1 et Video- 
Gertie (IS K) 

345 F t.t.e. 



LIVRES -- 

MANUEL DE &&*&■ 

PROGRAMMATION 
ASSEMBLEUR SCR TRS-80 
ET SES COMPATIBLES 

(Tome 1) 

L'ouvrage de base pour s'initier a la pro- 
grammation en langage machine el a Putt- 
Illation dea quois de programmation 
(AiMmblfjui). Ce livre eat le premier 1 
aborder le aujet de maniere concrete en 
preaantant. toujours par la pra:ique. com- 
ment a partir des oulils de programmation 



on utilise las instructions de base du Z-80 
pour bltir del programme! de plus en 
plus lophiecquei. La demiere partie de 
l'ouvrage a'idresse aussi bien lux ex- 
debutants (pulequ'ili ont lu les premiers 
chapitrei ill ne sont plus tout a tail debu- 
tant!) cju'aui expert!, en traitanl de la gee- 
tlon dei peripheriquei en langage 
machine : 1'eeran, le caiaetophone, 
1'imprimanM, la generation de aoru. etc. 

1B0 pages an francais 

145 F t.t.c. 





MACHINE LANGUAGE DISK 
I/O & OTHER MYSTERIES: Four 

modele 1 at modele 3. Tout iur la console 
del disquattes en langage machine. 
Lecture/ecriture d'une pine, d'un iec- 
teur, etc. Utilisation dea routine! des DOS, 
TRS DOS, NEWDOS, LDOS. 
288 pagei 345 F t.t.c. 

MANUEL DE L'EDITEUR 
ASSEMBLEUR PLUS DE 

MICROSOFT (en francala) : Manuel 
d'utiiisatior, en francais. de 1'Editeur- 
Asaembleur Plus de Microsoft. Vous 
apprend a utiliaer l'Edilour Aaoombleur 

pour crtar et mettre au point voua-meme 
del programme! en langagea machine iur 
TRS-80 et Video-Genie. Ce manuel fail 
partie du package du logiciel (voir dam la 
partie "loglcleli") Editeur-Aiaembleur 
Plus de Microsoft. Le manuel aeul. 
73pageienrrancaii 99Ftt.c. 

T RS DO S 2.3 DECODED ft 
OTHER MYSTERIES : Tow rui le 

systems d'axploltaUon de diaquettes TRS 
DOS 2.3. de Tandy. Dana cet ouvrage voui 
trouverez tous lei detaili iur le (onction- 
nemenl du DOS 2.3, les utilitairei, sei 
principalei routine!, etc. Ouvrage trei 
precieux pour ceux qui veulent aller plus 
loin que le simple Basic et aurtout pour 
ceux qui programment en langage 
machine. Au sommaire : la geition del 
fichlera, les uliliialrea du DOS 2.3, lei com- 
mandos, la structure du "directory" ; 

etude detalllee de SYS 0, SYS 1 SYS8et 

de BOOT/SYS (avec le lilting complet et 



comment* de chacun de cei modules 
•yiteme). Etude detaillee de nombreuaei 
routine! pouvant etre appelees par vos 
programmes en langage machine. 
300 pagei en anglais 335 F t.t.C. 

TRS-80 DISK ft OTHER 

MYSTERIES : Tout sur las diaquettes 
du TRS-80 : architecture du directory, 
organisation dea Qchiera, comment recu- 
p*rer des donnees ou del programmes 
sur diiquette ablnee, etc. 
130 pages 210 F t.t.C. 

MICROSOFT BASIC 
DECODED ft OTHER 

MYSTERIES : Toutes lea routinea de 
la ROM utilisables pour programmer en 
langage machine : adreaae, contenu des 
regisrres, etc. Organisation et deroule- 
mant d'un programme Basic, ou il com- 
mence, ou il stocke ses donnees. etc. 

310 pagei 295 F t.t.C. 

BASIC FASTER AND BETTER 
& OTHER MYSTERIES : Enorme 

recueil de "truce" de programmation de 
haut niveau : itnr.gpaclong. line packing, 

290 pagei 295 F t.t.C. 

THE CUSTOM TRS ft OTHER 
MYSTERIES : Tout iur le hardware 
du TRS-80. Nombreux montages pour 
ameliorer voire TRS : haute resolution gra- 
phique, inversion video, majua- 
culei/minuaculei, comment (aire de la 

muaique, etc. .«■«•«., 

330pagea 345 F t.t.C. 



THE d VlVMf TttSUM 

A- ormn mystkrus 




PERIPHERIQUES 

IMPRIMANTE 

MICROLINE80 299SF t.t.c. 

IMPRIMANTE SEIKOSHA 
GP 100 2295 F t.t.c. 

* TRS-80 est one marque deposee 
par Tandy • Radio Shack 
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Nom_ 



Prenom_ 



UN RESEAU DE BOUTIQUES A VOTRE SERVICE 

• Toute une gamme d'ordinateurs personnels 

• Des logiciels pour programmer : langages, creation graphique, etc. 

• Des logiciels de jeu : wargames, aventure, etc. 

• Des livres et des revues en francais et en anglais. ___ _ — "~~mS5&$E£ 

• Les toutes dernieres nouveaut6s du march6 am6ricain._^ — r^Iies^^ ? ^sav*, 
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BON DE COMMANDE 

A retoumer a SIVEA S.A. - 31 bd des Batignolles 75008 PARIS 



Adresse. 



Ville- 



Code Postal. 



Bureau distributeur_ 



Pays_ 



Telephone . 



Marque et type de materiel 
pour lequel ces articles sont 
commandes : 



Quantite 



DESIGNATION 



MODE DE REGLEMENT 
Cheque bancaire joint n 
CCP joint 



D 



D 



Mandat-lettre joint 



Contre-remboursement Q 



PRIX UNIT. 



TOTAL 



Participation port et emballage 
(Voir aussi ci-dessous : +■ 250 F) 



Contre temboursemem : + 30 F 
(France seulement) 



Elranger et DOM-TOM : + 30 F 



TOTAL 



PRIX TOTAL 



-\r 1 

BON POUR RECEVOIR 
UN CATALOGUE 
GRATUIT 

Participation frais de port 
joindre a ce bon 3 timbres 
a 2,00 F. 



FRAIS DE PORT ET EMBALLAGE 

Ajouter 280 F pour toute commande comportant, pour tout ou partie, des articles tels 
que : ur He centrale, floppy-disk, impnmante, moniteur video,. papier pour imprimante. 
Transport par service express avec assurance comprise. Corse, DOM-TOM, et ranger : 
nous consulter par telephone ou courrier en ce cas. 
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Nom 



Pr6nom 

ou 

Soci6t6 

Adresse 




■ 

n 




59000 LILLE 
21bis.RUEDEVALMY 

Tel. . (20) 57.88.43 (+). 

Parking assure bade la Liberie 



44013 NANTES 

21 AbdG.GUISTHAU 

Tei.l" ) 475309 

Parking a 55u ' c 



33000 BORDEAUX 
RUE DU CORPS FRANC 
POMMIES 

Parting assure 



^BDDKBATIGNOLLES 

?;. B 52270.66W ^m^bn.le.Ubeile ^ 
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II 
II 

II 




bientot paraltra le 
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DE 

L" dRDINATEUR 

IIMDIVIC3UEL 



• Panorama des ordinateurs valant jusqu'a 60 000 F (plus de 180 materiels) 
oC^ • <© * Tableau recapitulatif de tous les O.I. dans plusieurs configurations 
™ X\^ • Panorama des imprimantes pour ordinateur individuel (plus de 80 materiels) 



*° 



>«"' 



fi> 



Reactualisation de bancs d'essai de materiels parus dans L'O.I. 

• Revue des bancs d'essai de logiciels parus dans L'O.I. depuis le n° 34 

• Annuaire des fournisseurs et des clubs : plus de 1 500 adresses 

• Le point sur les nouveautes parues depuis I'ete 82 

• Dictionnaire de I'informatique individuelle 

• ... Et une serie pour vous "guider" sur le chemin de votre informatisation individuelle 



a partir du 15 septembre 1983 
35 FF* chez votre marchand de journaux 

Pour recevoir le Guide 83-84 des sa parution, il vous suffit d'envoyer vos nom et adresseainsi qu'un cheque de 35 FF* a 
LORDINATEUR INDIVIDUEL (GUIDE 83-84). 39. rue de la Grange-aux-Belles, 75484 Paris Cedex 10 



'Elranger 40 FF. 
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EF-RUSE 

- 41 ROUTE DE RENNES - 44700 ORVAULT - 
TEL. (40) 59.18.51 
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ALISTE 
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L ' IMPRIMANTE 
PROFESS I ONNELLE 
D ' OCCASION 
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AU PRIX DE .. 
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2450F 

(recond i t i onr.ee) 

. - - J.-fcaSOoF" 
(non revise mo i s bon etot) 



• LARGEUR PAPIER REGLABLE 

• JEU DE 96 CARACTERES DROITS ET ITALIQUES 

• EQUIPEE DES OPTIONS :- BUFFER DE CARACTERES 

- IMPRIMANTE SUR PIETEMENT 
ACCENTUES, SEMI-GRAPHIQUES, MATHEMATIQUES, connection « cable pour trs-bo , 

INDICES. KIT INSTALLE : 320 f 

i ■£ z ■: h o / a 9 £ y. a i J Ji i ;> ?. ■: s c> ? « 9 * f * «'• ■♦ f 



• X 13 S CO L O iT-JIIM EI s 

• xoo c *=■ f< *=» c t s s e: c: 

EN OPTION POSSIBILITY DE CARACTERES "APL" 



EXEMPLE: 



VIDEO GENIE munis de 1' Interface d 'extension i 250 F 
eb 1 ' interface d 'extension : 320 F 

I"" '-J. •-•"". 



♦ I 



-I I 



L. \ / 1 1 * .- V I t XO* I ♦ ■ 1 1 I ir ^ ' \?. @ T <?> C'neioiJ & c 6 <*■ D " S 's Va JJ 6 c V 8 <•> Pt & i*i ft 



SERVICE 



c r est a lis si 



LES MEILLEURS PRIX SUR I© Materiel NEUF 



_ r-i x c: R O OR X« IMATE 1 J R 3 *. M - E "1 f '-" t-' R -X T-" M E- R X f -f. I J E 



DOUBLEUR de DENSITE 



ir-liOHI « H il'-li 



LOEiir;l rr. v 



ASSURE 180 Koctets par drive 
1 seul drive suf f i t 

35"5»SF^ 

Occa»ion» rtvcantM ■ 

TRB-90 Hod«l*« I d« 92 3300 F 

inL«rfac*« d'VMtansI on • drive*. 



au standard suraann CCITT 
acct* a Tranmoac ■ "icrodial • •tc. 
PT— fc a un Microordir>nt»tr d« commui I autr 
KtHMtit o«r t.alwhont avK un autr<t Micro 
Full duplex * connection dtreeto *3CO baud* 
version nan noMoloiuM 



1290 F 



F-ASCAL e»0 da NCS 

Models I st III , 1 DRIVE 
c'est GENIAL ! 

Documentation » support do coijrs 
en tT^RAIMCA I S incluse 

990F 



> ^ 
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KIT S3 


t" R X M IE-: |3 j 


F 


our TRS-90 Modal a III 

Cart* D'a><t<ro«(on MOX-A 

ummUii* • TESTE 11*3 F 

KIT coM*lat «• ortwft 2193 F 


Drive TOtC 3 mucn . 40 PISTES 

S7HP1 F FACT . noil* F KMHTE 

avwc M.IN at MITICR... 23IOF 

wiw s "•■■la d«n«..ao pistes 



ZBOfl 40 F 

BR1941 99 F 

MC14412 149 F 

MD1771 199 F 

UD1791 249 F 

UD1793 249 F 



'116 10 F 

2716 23 F 

74LS244 8 F 

OUARTZ 4Hhz.l9 F 

16Mhz.l9 F 



CLAUI KIF* 



MAIL 

14500 F Hl.livr. en C0FFRCT. 
10 toucn«« ..i... i..— i- I...20O F 

tw>ch« o »rr«t Hnli li i 

i • tt • 12 U 

.2oo F 



TRS-BO ModeJe I ET Mo<l»lo III »onl ds» M-qun dlfpo 
U1DE0 GENIE SYSTEME est. une -nrquq dffPOSPff de EACA 

EMLrait da nos CONDITIONS fn VENTE t 

PrlH HT au 10 novewbre 82 au deoart de Nantes. 

T.V.A. 18.6 X iur tout la Material. 

Material dieaonlb.e dans la ItMita das stachis. 



TCNfiV FJAfHO SHOCK 



-REPRISE-DEPOT VEZIS 
BON DE COMMANDE 

a retourner a SERVICE REPRISE - 41 route de Rennes - 44700 ORVAUL 

Nom Prenom 

Adresse 



C.P. 



Ville 



Pays 



Sepcifier Ie type d'ordinateurs 



Ouantite 


Designation 


P.U-H.T. 


Montant HT 




Imprlmante Reconditionnee 


2-150 






Imprimante en I'etat 


1200 






Cable de liaison 


250 






Autres 






















TOTAL HT 




PORT et EMBALLAGE : Les 
Marchandises au-dessus de 5kg 


TVA 18.6 % 
TOTAL TTC 


Frrc 


| voyagent 


en Port du 


Ci-joint regt par cheque 


D Mandai C 




Les lecteurs abonnes a la disquette TRACE ont ete 
tres rapldes a reagir (bien plus rapldes quu pour 
repondre au questionnaire...) devant le retard de 
celle accompagnant normalement le numero 5. Voici 
quelques expllcationa- Tout d'abord, la disquette 
NE PEUT etre enVoyee en meme temps que le magazine 
(a moins que vous prefer lea un retard supplementai- 
re, hmm ?) car c'est settlement a la parution de ce 
dernier que nous pourrdns determiner la liste exacte 
des programmes devant figurer sur cette disquette 
alnsi que de retribuer les auteur des articles (un 
changetnent de derniere heure peut en effet nous obli- 
ger a reiuplacer un article par un autre). Enfin, n<j- 
tre fournisseur habituel n'a pas t.-ouve un meilleur 
moment pour tomber en rupture de siock... Voila qui 
exDlique que vous avez recu votre disquette avec un 
peu de retard. Mais soyez sans crainte : vous n'avez 
pas ete oublies ! 



Nous continuons toujours a reoevoir de vous un abon- 
dant courrier. Malheureusement , il nous est impossi- 
ble de repondre individuellement - le temps passe si 
vite ! - a toutes vos questions. Toutefois, lorsque 
vos lettres sont accompagnees d'une enveloppe affran- 

chle et a votre adresse, nous repondons tou.lours, me- 
me si c'est parfois pour vous dire que nous manquons 
de temps presentement pour etudier votre probleme '. 
Certaines questions sont en effet si specifiques que 
leurs reponses necsssiteraient des heures de recher- 
ches et risqueraient de compromettre grandement la 
scrtie du Journal qui se fait deja trop attendre I 
De meme , ne soyez pas trop impatients en oe qui con- 
cerne les articles que vous nous soumettez et qui peu- 
vent paraitre avec un decalage de plusieurs nuraeros. 
Si vous attendez notre reponse avec 1' intention d'en- 
voyer votre article a une autre revue, le plus simple 
est encore de Jolndre une enveloppe affranchie et a 
votre adresse, ce qui nous permettra de vous commur.i- 
quer rapidement nos intentions. SURTOUT : n'envoye2 
pas lea MEMES articles a PLUSIEURS revues -a la foi& 



(si. si ! Nous avons des espiuns partuut !) : cela 
vous vaudra surement de ne jamais les voir publier 
dans aucune d'elles, et ce serait dommage. Le cas e- 
cheant, faites un choix et annulez 1' article aupres 
des autres revues. PAR PITIE, n'ecrivez pas vos pro- 
grammes en anglais (pourquoi pas en japonais ?) : ce- 
la nous oblige a les traduire en francais et nous 
fait perdre un temps precieux. La plupart de noa lec- 
teurs doivent deja ae battre avec lea documentation:) 
non-tradultes de certains logiciels ou nateriels, ce 
n'est pas pour continuer ici n'est-ce pas ? Enfln, 
des lecteurs nous demandent de les mettre en contact 
avec certains de nos auteurs. Dans ce dernier cas, 
nous communiquons toujcurs la demande a 1' auteur en 
question mais nous ne disposons evidemment d'aucun 
moyen de pression pour que celui-ci y reponde ! Merci 
de votre cooperation. 



L' accent d'Anvers ou de Denver... 



- Apres lecture de l'article "Dltes-le avec l'accent 
Beige..." (TRACE n" 3). je voudrais savoir s'il y a 
un moyen d'utiliser le kit BCM accentue sous NEWDOS- 
80. Le programme fourni par la maison BCM ne peut mo- 
difier que le TRSDOS (un peu desuet, avouons-le ) . 
(Gerard Manel, Vaucouleurs) 

* Un appel est lance a nos lecteurs (dont nous 
comptons BCM qui a peut-etre deja la solution ?) 



Une reponse et une question... 



- Dans le numero 3 de TRACE, un lecteur posait le 
probleme de l'adaptation pour raodele 3 de 1' extension 
BASIC donnee dans le volume 2 de "la pratique du TRS- 
80". Voici ce qu'il fajt faire : 

- deplacer l'orlgine ds H2EAH a M3EAH (16387) 

- supprimer la routine de rebonds ( liKne3 840 a 1050) 

- modifier la fin de programme ainsi ( lignes 52<4U a 
531C) : 



BUFBAS 



INIT 



Voici maintenant mon probleme : Le programme "sauve- 
gardez vos cassettes" (TRACE n° 4) ne fonctionne pas 
sur modele 3, probableraent a cause des problemes d'a- 
dressage des ports de sortie cassette. 

(J. Constancias, Fontameblean) 

* Merci pour ces importantes precisions. Un autre 
lecteur apportera-t-il une reponse a votre pro- 
bleme ? 



CHOOSE sur Visicalc ? 



DEFW 


i.) 


DEFW 





DEFW 


u 


DEFW 





CALL 


1B19H 


JP 


lAiyH 


END 


INIT 



- Disposant du raodele 1, je n'ai pas 1= fonction CHO- 
OSE sur mon Visicalc. Comment doit-on modifier la for- 
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mule de la cunt* R?0 dans I'exemple dp reuille riMmpnts 
du livre "Vislcalc sur TRS-80" (editions du PSI> pour 
obtenir ie bon resultat sans oette f'onction ? 
(M. Morcrette, St Quentin) 

* II suffit de deplacer avec |_/M] la ligne 27 apres 
ies deux lignes suivantes (en position 29), puis 
de remplacei- dans la fornule en B20 la fonction 
CHOOSE (B26.A2Y. ..M27) par LOOKUP (B26.A28... 
M28). 

(Reponae donnee par Herve Thiriez, auteur du li- 
vre cite!. 



Transfert modeie 3 — > modeie 1 



- Connaissez-vous un moyen pour transformer lea pro- 
grammes etablis sur disquettes TRS-80 modeie 3 sur le 
modeie 1 ? ( Association artistique et culturelle du 
CEA, Marcoulei 



Deux choses sont neoessaires pour parvenir a ce 
but : le modeie 1 doit etre equipe d'un doubleur 
de densite et d'un logiciel le supportant ; LDQS, 
NEWDOS-80 par exemple. Le programme SUPER UTILI- 
TY PLUS s'avere egalement trea pratique p-vur ce 
genre d' operation. 



Nnuveaux mode les 1 



- Suite a votre courrier des lectejrs du numero 4, 
j'ai eu la curiosite de "soulever le capot" de mon 
modeie 1. Ma surprise fut grande de constater que le 
circuit imprime et la numerotation des circuits etai- 
ent tree differents de ceux deorite duns le livre "la 
pratique du TRS-80" volume 3. Tout d'abord, 11 n'y a 
plua que 67 "pucea" sur la carte princlpale ail lieu 
de 76, dont : 2 bottlers 2114 a la place de 7 x 2102, 
ce qui permet d'avoir les minuscules facilement ; 
disparition du "kit" BASIC qui est remplace par deux 
ROM (A et B) ; reitplacement de certains "buffers" 71 
LS367 par des 74LSi"44 et 245 ; remplaceraent du gene- 
rateur de caracteres MCM6670 par un SCM37530 qui est 
(helas !) soude directement sur la carte ; un empla- 
cement reste libre pour un circuit de 18 pattes, jus- 
te a cote du generateur de caracteres, et est serigra- 
phie CGA (?) Est-ce une extension prevue pour recevoir 
un generateur accentue ou une extension graphique ? 
(Jean-Paul Calvier , Ste Foy-les-Lyon) 

* Merci pour ces complements techniques. 



Emouvante pensee... 



- Loraque voua publierez votre prcchaln numero, ayez 
une pensee emue pour tous ceux qui comme moi n'ont 




NOUS SOMMES FIERS DE NOTRE EQUIPE 



La sommcdenotre experience des micros IKS' atteind 
presque io domi sii'iMr. 

Pour TRS- 80 mod Me I et 3 = 

• carte haute resolution couleur "-influx cisponible 
en septembre avec BASIC araphique couleur. prix 
de lancerient: iQQS F TTC. 

• Reservation 1000 F des aujourd 'hui . 

• Nous distribuons aussi toutes les extensions et kits 
qui exprimeront toute la puissance de votre TRS- . 



NOS iinnELES SPECIAUX 



Marque ceposec. 



BON DE COMMANDE A RETOURNER A : 



Uinflux 



TRS Minfhu (14 K 2 drives CP/M : 10 WO F 

TRS ! n influx 48 K 2 drives, haute resolution 

SI 2 X 1<I2: IS 000 F 

Synthet iseur vocal pour TRS I: 495 F 

Consul tea nous. nous avons constamment des 

nouveautes - 

Notre rayon lubliotheque contient dc nombrcux 

ouvrages speealises sur le TRS" et \o Z80 

Documentation sur demande centre 2 timbres a 2F 
(Envoyer une enveloppe avec votre adresse complete.) 

Prix indiques an IS .lu.n 1983 



2(1. rue LaetUWC, 78330 FONTENAY-LE-FLEURY 



Tel. : (J) 4WI.II7.53 



CODE POSTAL 

Signature 



ville _ 

tEL 



ouANirE 



DESIGNATION 



PRIX UNI1AIRE 



TOTAL 



MOOE DE REGIEMENT MANDAT LI CCP r CHEQUE BANCAIRE IJ CONTRE REMBOURSEMENT + 'OK 
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pas de dlsquettes, et qui planoteront febri lenient a- 
vant de decouvrir les nouveautes ! (Christian Dorcnain, 
Aspet) 

* Oui , nous pensons bien a vous ! Mais pour vous 
consoler, ne croyez pas que r.ous recevons tou- 
jours les programmes de nos suteurs sur une bel- 
le dlsquette et nous devons aussi en passer par 
Ik... (parfols nieme apres avoir valnement tente 
de lire une cassette recalcitrante ! ) Avez-vous 

essaye d'ameliorer votre Vitesse de frappe... 
avec le programme de notre numero 1 ? 



RUN sur modele 3 



- Quelle est l'adresse d' entree dans la routine RUN 
ce l'interpreteur BASIC du modele 3 ? (CGCT, Massy) 

* L'adresse en question est : IB5DH, comme sur le 
modele 1 (nous connaissions deja cette derniere, 
mais il n'etait pas evident que l'adresse soit 
la meme sur les deux machines). Tl reste malnte- 
nant a savoir comment on l'exploite. . . ! 



Des instructions pleines de piquants 



- Bon nombre de programmes proposes dans TRACE reni'er- 
nent quelques PEEK et POKE qui me chagrinent un peu ! 



Loin de denigrer ceo instructions qui, bicn utilioeeo, 
revier.nent a mettre un "tigre dans son programme", je 
cralns qu'elles ne posent de serieux problemes aux 
(mal)heureux possesseurs de TRS-Color. . . (au passage, 
Je lance un appel a tous les utilisateurs des TRS-Co- 
lor et assimiles pour qu'ils contrlbuent a la nals- 
sance d'une rubrique specialisee dans les colonnes de 
TRACE...). Ne serait-il pas possible d'adjoindre aux 
commcntairco dea programmes incrimines des indications 
sur le role precis de ces instructions, afin d'en per- 
mettre une eventuelle transcription ? [B. Chareyron, 
Bellignat) 

* En effet, ces instructions deroutent toujours un 
peu les amateurs de "vrai" BASIC ! La plupart du 
temps, elles sont tres specifiques a la machine 
et au logiciel et n'ont pas toujours de relations 
immediates avec un autre materiel. De ce fait, 
il est delicat d'en parler sans S9 trouver en- 
traine dans des considerations tres techniques ! 
Le plus simple a notre avis serait de regrouper 
dans un meme article les differentes utilisations 
de PEEK et POKE appliquees au TRS-80. Elles ne 
sont pas si nombreuses apres tout. . . Le plus 
simple serait aussi qu'un volontaire. . . 



SPECIALISTE DES 
LOGICIELS DE , 

6ESTI0H SUR 
MICRO-ORDINATEUR 

adaotds aun pme 
PMl. commerqants. 
artisans, professions 
llbdrales. 




COMPTA-III 



LOGICIEL DE COMPTABILITE GENERALE 

1 500 FTTC FRANCO 






LOGICIEL DE TRAITEMENT DE LA PAIE 

1 500 F TTC FRANCO 



MATERIELS RECOMMANDES : 

Pour TRS-80 Modele III (c) 
48k. 2 unites dlsques 5" 

Imprimantes recommandees : 
LPVIII, LPVI. LPV. DMP-200, DMP-400 

(c) Marques deposees Tandy corporation 

CONTACTER S.A.R.L. SERIE III 

5. rue Mont Alaric 11 NARBONNE 

Tc-I (58) 42.18.92 -49.82.57 

pour oblenir des renseignements complementaires 

^Matijues Oeposees Dominique PETITOUEUX 



AU-DELA 
DES MACHINES 




La societe IDEM (Importation et diffusion d'equipement 
micro-Lnformatique ) dont nous avons deja eu 1'occasion 
de parler dans noscolonnes !Pascal-80, Stringy Flop- 
py, par exemple) change de slgle et devient desormais : 
IDEN. La raison en est fort simple : oe sigle etait 
deja utilise depuis plusieurs annees par une societe 
Toulousaine. 

(IDEN, 31 bis rue Sorbier, 7^020 PARIS). 



SIVEA annonce l'ouver-ture d'une nouvelle boutique a 
NANTES. D'une surface de plus de 100 m2, elle est, de 
meroe que dans les trois autres boutiques, divisee en 
deux aires distinctes : informatique pour l'entrepri- 
se et loisir inf ormatique, chacune d'elles comprenant : 
rnateriels, logiciels, livres et revues specialises. 

(SIVEA NANTES, 21 A Bd G. Gulst'Hau, BP 388, NANTES 
CEDEX ) 



Suite a la demande d'un lecteur (TRACE n° 4) concer- 
nant le type d'emballage a utiliser pour expedier une 
disquette par voie postale, la societe FRANIC nous 
propose une solution : une pochette de protection 
specialement etudiee dans ce but et pouvant contenir 
deux disquettes 5 pouces (103 F HT les 10). Cette me- 
me societe fabrique egalement des feuillets perfores 
en matlere plastique pour le classement des disquet- 
tes en album. 

(FRANIC, rue de la Chapelle, BP 2, 19190 BEAULIEU- 
SUR-LAY0N) 



SERIE III, societe de conception de logiciels sur TRS 
modele 3, propose 3 programmes professionnels : C0MP- 
TA-III, PAIE-III et FACT0-III ( facturation, gestion 
de stock) au prix unitaire de 1500 F TTC accompagnes 
d'une documentation complete et en francais. 

(Dominique Petitqueux, 5 rue Mont Alarlc, ll'OO NAR- 
B0NNE ) 



SIDEG Informatique annonce la commercialisation d'un 
programme realisant sans le secours d'une carte spe- 
cif ique, la synthese vocale et musicale par la sortie 
cassette du TRS ou du Video-Genie. Le precede utilise 
29 diphonemes elemental res a consonnance franchise. 
Prix : 350 F TTC en version cassette, 380 F TTC en 
version disquette. 

(SIDEG, 170 rue Saint-Charles, 75015 PARIS) 



La societe beige LOGAWAL dis'.ribue plusieurs produits 
tournant sous CP/M (TRS modele 2) : 

- WalCore version 3-0, logiciel de gestion de fichiers 
en francais, permettant de traiter 13000 ficr.es de 
500 caracteres. Tris et selections multi-criteres, 
Impression en tableaux, etiquettes et lettres person- 
nalisees, etc... Prix 2650 K HT. 



- WORDSTAR 3.0 en frangais (de Mlcropro), logiciel 
de traitement de textes. Prix 25500 FB HT. 

- INFOSTAR (de Mlcropro) qui eat une combinaison de 
DATASTAR (saisie de donnees et liaisons de fichiers) 
et de REPORTSTAR (tri, selection et fusion de don- 
nees, edition de tableaux, impression formattee. 
Prix : 25500 FB HT. 



(LOGAWAL, 200 Av. W. Churchill, 
BE LC- IQUE) 



1 80 BRUXELLES 



TANDY annonce l'ouverture a Bordeaux (depuis le 7 a- 
vril 83) d'un nouveau Centre-Ordinateur. Parmi lea 
103 magasins repartis sur le territoire francais, 10 
d'entre eux sont des Centre-Ordinateurs dans lesquels 
seuls sont presentes les 450 produits de la gamine TRS- 
80. 

Enfin, de grandes nouveautes tanl attendues : 

- Unite de disque dur 5 Moetets pour TRS modele 3 

prcocntcc dans un chassis scpare de l'ordinateur et 
contenant sa propre alimentation. Possibility de rac- 
corder jusqu'a 4 unites. Un kit d'adaptation est pre- 
vu pour le modele 1. Prix : 23995 F TTC ( lere unite), 
19495 F TTC (unite secondaire), 375 F TTC (adaptation 
modele 1 ) . 

- Systeme d' exploitation de disquette LDOS sur mode- 
les 1 et 3 permettant 1 'exploitation de disquettes 
simple et double face, simple ou double denslte et 
disques durs. line documentation de 350 pages (en an- 
glais ?) accompagne ce DOS ainsl qu'un utilitaire de 
conversion pour transferer les progiciels Tandy (mo- 
deles 1 ou 3) tournant sous TRSD0S. Bien que ce sys- 
teme d ' exploitation fasse automatiquement partie de 
la fournlture en configuration disque dur, les utili- 
sateurs de disquettes 5 pouces des modeles 1 et 3 
peuvent egalemen; se le procure au prix de 1195 t TTC. 

(TANDY, 211-213 3d Mac Donald, 75019 PARIS) 



ANNONCES TANDY USA 



Tandy vient d'annoncer aux Etats-Unis deux nouveaux 
produits d'une grande importance et que nous esper-ons 
voir arriver en France tres rapidement. . . 

- Le modele 4, dont i'apparence est celle du modele 
3 si ce n'est la couleur "blanc casse", est equipe 
d'un ecran de 21 llgnes de 80 caracteres, d'une capa- 
cite de 64K octets de memoire vive pouvant etre e -en- 
due a 128 K (simulation d'un disque-memolre) . L'hor- 
loge du mlcroprocesseur - tant critiquee pour sa len- 
teur - est portee de 2a 1 Mhz (le double). L'utlli- 
sateur aura le cholx entre les systemes d'exploitatlon 
LDOS ou CP/M Plus... Le BASIC Microsoft a ete etendu 
par les instruction CHAIN et COMMON pour le traitement 

des gros programnes. Le clavier comporte maintenant 
70 touches (CONTROL, CAPS et 3 touches de fonctions). 
Parrai les options : le disque dur et le graphique hau- 
te resolution (640 x 210). Ah la belle bete ! Le prix 7 
Derisoire, meme au cours actuel du dollar : 1999 $ 
(15000 F) avec 2 disquettes 184K et 1' interface R3- 
232. 
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La "petite annonce" que nous passions dans le numero 
5 de oes colonnes concernant 1 ' industrialisation ds 
la carte HHC (Haute Resolution-Couleur) pour modeles 
1, 3 et compatibles a donne un resultat positif puis- 
qu'une jeune societe : Micro-Influx, s'est tout de 
suite portee volontaire pour assurer sa commerciali- 
sation. Les choses n'ont pas tralr.e puisqu'un modele 
3 equipe de cette carte etait expose a Micro-Expo 
(peut-etre l'avez-vous vu ?). Date de dispofiibilit^ : 
septembre 1983. Micro-Influx qui represente egalement 
la marque SANYO, prete la plus grande attention au 
TRS modele 3 sur lequel 11 propose des "amenagements" 
et des extensions : controleur et lecteurs de disquet- 
te, carte CP/M, etc. . . 

(MICRO-INFLUX, 20 rue Laennec, 78330 FONTENAY LE 
FLEURY) 



- Autre surprise avec : le modele 100. II s'agit d'un 
ordinateur portable de la taille de 1' Epson HX-20 : 
30 era x 20 cm x 5 cm, muni d'un vrai clavier de machi- 
ne a ecrire et d'un affichage a cristaux liquides "Je 
8 lignes de 1(0 caracteres en mode texte ou 240 x 61 
points en mode graphique ! II inclut evidemment sa 
propre batterie mais aussi une interface serie et un 
modem pret a etre raccorde sur une ligne telephonique 
(aux USA pour 1' instant). Avec ce systeme, plus be- 
SDin de telephone pour converser avec un autre ordi- 
nateur : on compose dlrectement le numero a partlr du 



clavier' ! Nous y trouvons egalement une interface cas- 
sette, une interface parallele et une horloge temps- 
reel faisant aussi fonction de calendrier. Le micro- 
processeur du modele 100 est une version CMOS (faible 
consommation) du 8085 d'Intel (compatible avec le Z- 
80), sa memoire morte a une capaclte ds 32 Koctets et 
sa memoire vive peut s'etendre de 8 a 32 Ko. Le BASIC 
que l'on trouve ici dans une version particulierement 
riche est naturel lement signe Microsoft ! Le prix dc 
cette petite mervellle : 799 a 1 1 3 1 * $ selon configu- 
ration memoire. 



Heureux nasard ! 

Comme nous vous l'avions promis, nous avons procede 
au tirage au sort de 4 noms parmi les reponses que 
nous avons regues a notre questionnaire "Lecteurs qui 
etes-vous ?" . (Questionnaire que nous sommes en train 
de depouiller). Voici les noms designes par le sort, 
ainsi que leur ville de residence : 

- Joel Bertaux (Tholssey) 

- Louls-Xavier Carbonnel (Ay) 

- Jean-Louis Laesaer (Ostheim) 

- Corinne NicolaT (Marseille) 

Si vous etes l'un des heureux (se) elu(e)s, et que 
vous n'avez a ce jour recu aucun courrier de Trace, 
e'est que nous poasedons une adresse erronee : en- 
voyez-noua un petit mot afin de faciliter les choses ! 



VISKALC # VISKALC.. 



Avec le modele Visicalc. vous pouvez creer sur votre P.S. 
(Petit Systeme Individuel) un tableau comportant des titres, 
des valeurs et des for mules. Des que vous changez une 
des valeurs numeriques, tout le tableau se met a jour en 
fonction des formules. Cet ouvrage vous guide pas a pas 
dans I'utilisation du Visicalc, a I'aide d'exemples pro- 
gressifs. De nombreux cas d'application sont preserves 
dans la seconde partie, au rythme d'un chapitre par cas : 
echeancier de remboursement, feuille d'impot, gestion 
de copropriete. paye, facturation, tableau de bord... 
Chaque exemple sert a introduce de nouvelles ins- 
tructions ou astuces d'utilisation. 



176 pages - 82,00 FF / 635,00 FB 
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"LA CONDUITE DU PC-1211 {ou TRS-80 POCKET)" 

Par Didier Eicking 

Editions EYROLLES, Collection "Micro-Ordinateurs' 

152 pages 

Prix : 65 F 



Corome le presente i'Editeur, cet ou 
pretention d'enseigner le BASIC aux 
plutot de rnieux faire ccmprendre le 
des SHARP PC-121 1 /TANDY 1 et surtou 

ter les lecteurs des "trues et astu 
par l'auteur. 

Ce dernier reus propose done une "e 
CKET en quatre parties ; les deux p 
sacrees a une description du node d 
en manuel et en programme ; les deu 
"d'aller plus loin" en nous llvrant 
decouvertes par l'auteur et illustr 
ceaux cholsis" de son "oeuvre". 



vrage n'a pas la 
neophytes, mais 
s particular! tes 
t de faire profi- 
ces" decouverta 

xploration" du P0- 
remieres sont con- 
e fonct ionnement 
x autres perrr.ettent 
les particularites 
ees par des "mor- 



Passons rapidement sur la pre-nlere 
une dizair.e de pages 1' utilisation 
culatrice sclentiflque" en inaistan 
les facilites de manipulation ; ell 
introduction a la presentation rela 
V 30 pages) du mode programme de la 
laquelle eile fait un tout. Lss dif 
tions et fonctions BASIC utilisable 
en revue avec de nombreux exenples 
teur est le plus souvent suppose it 
dans la "conduite" des ordinateurs 
done mis sur la pedagogie ; les con 
destines aux r.eophytes vont de la m 
un organlgraitme a la necesslte de p 
gnetophone er "lecture" quand on ve 
gramme. Notor.s cependant au passage 
dans les resultats des exemples, du 
fautes d' impression, mais pouvant r. 
nancer les debutants. 



partis rpsnmant. pn 
du POCKET en "cal- 
t notamment sur' 
e sert en fait d' 
tivement e.aboree 
seconde partie avec 
ferentes instruc- 

y sont passees 
a l'appui ; le lec- 
re un nouveau venu 
et l'accent est 
sells speclalernent 
aniere de realiser 
ositionner le rna- 
ut charger un pro- 

quelques erreurs 
s sans doute a des 
eanmcins deccnte- 



La troisieme partie "Trues et astuces" s'adresse plus 
aux. utili3ateura overtis. On y passe er revue les prir. 
ci pales instructions du poquette en mettant en avant 
ieurs originalites, de facon a pouvoir en tirer le 
rneilleur parti. J'ai ainsl parti culiereirent apprecie 
les conseils perrcettant d'eooncrruser des "pas" de pro- 
gramme ( branchements condit ionr.ela utilisanl des va- 
leuirs. logioues, branchements calcjles, ...) ou de de- 
passer les limites de la machine (arguments des buu- 
cle-o par cxcrr>pjc), ainoi que lco cctucco dc presenta- 
tion (par exemple affichage de messages aiurs que 1' 
imprimante est cunnectee). L' usage Irhabituel des 
PRINT* et INPUT* pour " telecommander" tout autre cho- 
se que l'ecriture ou la lecture de dennees est assez 
fedulsante ; en peut imagirer d' autres utilisations 
du mime type : commande d'un projecteur de diapositi- 
ves , d ' une camera,... 

Cette utilisation est a la base de la "dictee maglque 1 ' 
l'un des "morceaux choisis" de la derniere partie. 
Dans ces chapitres au titre un peu "pompeux" , aux di- 
res meme de l'auteur, sont rassembles une douzaine de 
programmes typesque l'on peut classer arbitrairement 
en programmes de demonstration, speclalernent destines 
aux debutants, et programmes d'application pour toue. 
Cfiix qui r.herrhent. des programmes tout fa its dans un 
but ludique ou pratique seront combles par 1 "i'ordina- 
teur de Dord" , le "paz.un" ou la "gestion de portefeul! 
le boursier". Par contre la "simulation budgetaire" 
me semble otre plutot un exercice de style et devra 
etr-e reecrite pour s' adapter a un autre cadre ; dans 
un autre genre le "compte est bon" est un peu simplet, 
vu le titre choisl. 

Tous comptes faits ce livre s'adresse done a la fols 
aux debutants et aux utilisateurs avertis ; malgre le 
cote parfois un peu herissant des redites - pourtant 
bien necessaires - 1 ' une et l'autre de ces deux cate- 
gories de lecteurs y trouvera son compte, quitte pour 
les seconds a passer directement aux "Trues et astu- 
ces" en sautant les deux premieres parties. 
Gageons par ailleurs qu'en suivant les conseil de Di- 
dier Backing les "debutants" finiront par devenlr des 
"experts" du POCKET. 



Alain Gandossi 
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programmes 



Cote 
court 



SIPER-HEXA-ORDINAIRE ! 



N'y aura-t-il done Jamais de fin au raccourcissemer.t 
de cette routine de conversion HEXA/DECI ? II semble 
blen que non avec Roger Brousmiche qui vient encore 
de relever le defi ! 

- La ligne 1000 ci-dessous occupe 58 octets. La duree 
du calcul est de 0,15 seconde pour un hexa de 4 chif- 
fres. Explication : (N>9) vaut -1 si N>9, autremer.t 
il vaut (pourtant simple, non ?) 




10 INPUT'HEXA ";A$ 
X : GOT0 10 



GOSUB1000 : PRINT "DECI =" 



1000 X = 0:FORI=1TO"..EN(A$):N=ASC(MID$(A$,I,1)-48:X=X 
* 16+N+7*( N>9 ) : NEXT: RETURN 

Roger Brousmiche 



LISTEZ V0S M0TS-CLES EN UNE LIGNE >. 



Suite aux articles du numero 3 de TRACE : "les gra- 
phiques sur TRS" (p. 38) et "detec-.ez vos mots-cles" 



(p. 40), voici un court programme affichant les "to- 
ken" des instructions 3ASIC : 

10 FOR 1=5712 TO 6 175 : P=PEEK(1) : IF 1^7 P PRINT 
CHR$(P); : NEXT ELSE J=J+1 : PRINT ,J+I27; CHR$(P- 
128); : NEXT 

Club ADEMIR-Or leans 



PLANTEZ... VOTRE SYSTEMS ! 



II y a differents moyens pour "planter 1 ' votre syste- 
me (si vous en trvuvez d'autres, nous aliens bientot 
creer un rubrique "plantage court" !). Connaissez- 
vous celui-ci ? 

Frappez en mode commande trois espaces sulvls du ca- 
ractere apostrophe ( ' ) et terminez par ENTER (jusqu' 
ici , rien d'anormal). Recommencez encore une fois, 
pour voir. . . 

Pierre Baronquel 



DUMP MEM0IRE EN DEUX LIGNES ! 



Cet utilitaire peut s'averer pratique pour examiner 
en hexadecimal et en ASCII la memoire de votre ordi- 
nateur. Tel qu'il est ecrit, il utilise 670 octets 



dont 36 pour les chaines de caracteres (notez la pre- 
sence de 1' octet de controle si vous craignez une er- 
reur . . . ) . 



1 DEFINT O-Z :F=327E7 :DIM TSC15) :FOR J=0 TO 15:REOD T*(J):NEXT 
:D0Tfl 0, 1,2.3,4, 5, E, 7, 8,9,0, fi, CD, E, F:Dt="0" :INPUT"DEBUT HEX";D* 
:F0R J=l TO I.ENtD*) :fl=ftSCi:MID*(Dt, J, 1)) :fl=fi-4S+7*(fl) 57) :D=D*lE+fl 
:NEXT:FOR J=D TO F STEP 1B:DS= H=J/25B:L=J 0ND 255.-REM33 

2 PRINT T*CH/1E>T*<H AND 15>T*<L/1&>T*<L AND 15>" " 5 : FDRK-0TO1D 
:P=PEEKCJ+K) :PRINT T*CP/1E) T*(P 0ND 15) BTRINGtC J-i-K fiND 1,32); 
:2=<P>31)*<P<129):D3i=DS+nHR*(P*Q-46*i:Q=0)):NEXT:PRINT" "D*:NEXT 

: REM64 



>RUN 

DEBUT HEX? 100 

0100 A728 C319 



1A4D 454D 4F52 5920 5349 Efl45 

0110 0052 4144 494F 2053 4841 434B 204C 4556 

0120 454C 2049 4920 4241 5349 430D 001E 2CC3 

0130 0219 D70F 013E S001 3E01 F5CF 2SCD 1C2B 

0140 FE80 D24ft 1EF5 CF2C CD1C 2BFE 30D2 4filE 

0150 1EFF 14DB 0330 FBC6 034F F1B7 5F06 0270 0. . . Z 



. (.. . .MEMORY SIZE 
. ROD ID SHOCK LEV 
EL II BfiSIC. .... 

) .>...(..+ 

. . J. . . ,..+. 0. J. 



. J. Mevel 
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Tt*#c5 a Rr°c 



MOT DE PASSE (PARTOUT) ! 



Exception falte pour NEWDOS-80, les DOS sont organi- 
ses de facon a permettre l'acces a tout fichier, quel- 
que solt son degre de protection, grace a un mot de 
passe "unlversel", celul-ci n'etant point divulgue 
dan3 la notice d'emploi. Le definition du "PASSWORD" 
sur 8 caracteres alphanumeriques produit quelques 
2000 milliards de combinaisons alors que le codage 

sur 2 octets oculement fait que chaquc mot" de pctB^e 
possede environ 33 millions de synonymes. A l'aide 
d'une routine de recherche travaillant a la Vitesse 
d'une corablnalson par milli3econde (1/1000 de secon- 



de), il faudralt neanmoins 66 annees pour trouwer toils 
ces sesames. Faute de temps et de place, nous n'en 
donnerons done que quelques uns : 



AF19 ou RUEK 
NKWD0S10 
38D ou HADU 



ou HSWWW pour TRSDOS 2.3, NEWD0S» et 
pour VTOS 1.0 



ou VSVZ 

AFK6 ou SOURD ou PXIBM pour LDOS "5.0 
"JB1 ou COLX ou US60 pour DOSPLUS 3-3 

ou R0U3 



CME3 ou HAXE 



pour TRSDCS 1.2 sur modele 3. 
Roger Buvat 



RESTORE SUR UNE NUMER0 DE LIGNE DATA 



Comme vous le savez, la commande RESTORE fait toujours 
pointer 1' Instruction READ sur le premier numero de 
ligne DATA du programme. Voici une courte routine qui 
permet de falre pointer la READ sur un numero de li- 
gne DATA donne. 

Le code source assembleur est le suivant : 

passage argument USR 

on passe HL 
dans DE 

cherche adr ligne DATA 
(placee dans BC) 
et que l'on range dans 
le pointeur READ/ RES- 
TORE 

Pour l'utiliaer en BASIC, je propose le mode d'emploi 
suivant qui est compatible avec toutes les configura- 
tions de memoire (16 a 18K) et de materiel (disque ou 
cassette) : 

10 ' Sequence d' initialisation 

20 ZZ$="R0UTINE BINAIRE" : AZ=VARPTR(ZZ$ ) 

10 Z1=PEEK(AZ*1) : Z2=PEEK( AZ*2) : AD=ZU256»Z2 

50 IF PEEK( 163y6) = 201 THEN POKE lb526.Zl : POKE 

16527, Z2 ELSE DEFUSR=AD 

60 FOR 1=0 TO 13 : READ A : POKE AD+I.A : NEXT I 

70 DATA 205,127,10,229,209,205,11,27,11,237,67,255, 

61,201. 



205, 127, 10 CALL 


0A7FH 


229 PUSH 


HL 


209 POP 


DE 


205,11,27 CALL 


1B2CH 


11 DEC 


BC 


237. 67, 255, 6-1 LD 


(40FFH),BC 


201 RET 





2n pratique, on procedera ainsi : 

- Charger la chalne ZZ$ avec la routine blnaire en 
executant le programme ci-dessus ( ne soyez pas sur- 
?rls si la ligne 20 devient bizarre en la listant ! > 

- Supprimer les lignes 60 et 70 

- Ecrire la suite de votre programme. 



Pour pointer sur un numero de ligne donne, falre 
X = USR (numero de ligne) 



Exemple : 

100 DATA "ligne 100" 
110 DATA "ligne 110" 
120 DATA "ligne 120" 
130 RESTORE 
110 X=USR(110) 
150 READ A$ 
160 PRINT A$ 

>RUN 
ligne 110 
FEADY 
> 



on pointe sur la ligne 110 

... on la lit 

... et on 1'affiche 



M. Maillet 
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essai materiel 



MDX-2 : 

rinterf ace d'extension 

en kit 




L" interface MDX-2 
pour modele 1, de Micro Design (Aus- 
tin Texas), est un kit propose sous forme d'un 
circui I imprime nu double face (30,5 X 28 cm) et d'une 
documentation de iruntage tres complete. 

Cette documentation (en anglais) decrlt sommairement 
les dlfferents sous-ensembles composant 1' interface : 
Alimentation, Modem, extension memoire, EPROM option- 
nelle, horloge temps reel. Interface Serie, Interface 
parallele, double Interface pour lecteurs de cassette, 
controleur de disques souples. On trouve ensuite la 
liste des composants <par references, par sous-ensem- 
bles) et la nomenclature generale. 

Le chapitre suivar.t est Le guide de montage qui deerit 
ctiaque operation a effectuer et permet, pas a pas, de 
cabler completement la carte. Apres avoir effectue le 
montage, la mise en route et le test de 1' interface 
sont decrits dans le chapitre suivant. Chaque sous- 
ensemble est teste par un petit programme specifique. 

On trouve ensuite une description technique des dif- 
ferents sous-ensembles, avec des indications sur leur 
fonctlonnement et leur programmation (adresses, etats, 
dialogue), la brochure se termine par un programme en 
langage machine permettant 1' utilisation de 1' Inter- 
face serie (RS232), et par les specifications techni- 
ques des boitiers UAHT (interface serie) et 1YY1B 
(controleur disquettes) ainsi que les schemas complets 
de la carte. Le circuit Imprime, de realisation se- 
rieuse, permet par une serigraphie tres precise le 
reperage de tous les composants. 

Le KIT MDX-2 par la qualite de realisation du circuit 
imprime et de la documentation, ne devrait pas poser 
de problemes a 1' amateur desireux de se lancer dans 
cette realisation, la seule difficulte etant de rea- 
liser des soudures propres et fines, ce qui s'acquiert 
avec un peu d'entralnement . 

II est cependant conseille de proceder avec methode 
car 1" operation eventuelle de dessoudage d'un compo- 
sant n'est pas conseillee et peut entrainer le decol- 
lement de pastilles ou de pistes cuivrees. 

Examinons maintenant les differents fonctions remplies 
par la carte. 

Cette carte est strictement compatible avec 1' expan- 
sion interface de TANDY, aussi bien sur le plan mate- 
riel que logiciel, et offre en plus : 

- une interface Serie RS232 pour transmission de don- 
nees en mode Asynchrone ; 

- un Modem 300 bauds integre ; 

- la possibilite oe selectionner la fin de la zone 
memoire soit en RAM (memoire vive) soit en EPROM ( me- 
moire morte) . 

L'interface serie utilise le mime boitier UART (TR 
1602) que sur la carte RS232 de TANDY, et la compati- 
bility materielle et logicielle est assuree. 



Le Modem 300 bauds integre, n'est malheureusement pas 
utilisable en FRANCE, car les frequences retenues pour 
transnettre les donnees sur lignes telephoniques, ne 
sont pas conformes aux standards europeens (Avis V21). 
La transmission de dor.nees a 300 bauds utilise quatre 
frequences (2 dans un sens, 2 dans 1' autre) ; le ta- 
bleau suivant montre les differences : 



Frequences 
Emission 


USA 

1270 HZ 
1070 HZ 


FRANCE 

980 HZ 
1180 HZ 


Frequences 
Reception 


2225 112 
2025 HZ 


1650 HZ 
1850 HZ 



Malheureusement, le boitier MODEM MC 11112 est concu 
pour les frequences USA et ne peut fonctionner sur 
les frequences europeennes et a notre connaissance, 
il n'existe pas de boitier equivalent pour les stan- 
dards europeens. 

L' option EPROM en fin de memoire, permet de rendre 
"residents" des programmes que l'on utilise frequem- 
ment et que l'on souhaite trouver en memoire sans a- 
voir a les charger a chaque mise sous tension. 
L' option EPROM permet de reserver les derniers 2 K 
octets de memoire a cet usage, en utilisant une EPROM 
de type 2716. La selection entre EPROM et RAM (memoi- 
re vive) est realisee par des cavaliers. II est ega- 
lemen:. possible de reserver 1 K octets (en utilisant 
une EPROM 2Y32). II est alors necessaire pour cela 
de couper deux pistes et d'etablir deux liaisons au 
niveau de ces cavaliers. 

Les autres fonctions offertes par l'interface MDX2 
sont aussi bien sur, eelles de l'interface standard 
TANDY. Nous les passons rapidement en revue : 

- Extension memoire : permet de porter la capaclte 
totale de memoire vive a 18 K octets. 

- Interface parallele : pour imprimante de type CEN- 
TRONICS (EPSON, 0KIDATA, etc.). 

- Horloge tempa reel : genere une interruption toutes 
les 25 millisecondes. 

Si le controleur dlsquette (177 IB) r.'est pas monte 
il est necessaire d'effectuer un "strap" donne dans 
la documentation, pour assurer un fonctlonnement 
correct de 1' horloge. 

- Double interface cassette : permet le controle de 

deux lecteurs-enregistreurs de cassette. 

- Interface Floppy disque. Elle est er, tous points 
comparable a celle de 1' expansion TANDY. On peut 
regretter a ce niveau q'un separateur de donnees 
extsrne n'ait pas ete prevu (quelques circuits in- 
tegres supplementaires) afin de ramener le taux 
d'erreurs en lecture a une valeur quasiment nulle. 

Pour terminer cette etude, nous dlrons quelques mots 
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sur la section alimentation. Elle ut-.ise des regula- 
teurs integres 78H05 7812 et 7912 el necessite un 
transfurmateur externe de type standard TANDY pour 
modele 1. La section 4. 4 de la notice indiqje comment 
realiser 1 'equivalent a partir d'uu transformateur 
2 x l&,7 Volts, 2 amperes. On peut s'etonner de 1 'ab- 
sence de diodes de protection sur les regulateurs in- 
tegres. Gare aux coupures et remises sous tension 
trop rapidement enchalnes ! L'aiimentation n'est pas 
prevue pour supporter des equipements externes (uni- 
tes de disquettes par exemple). 

- Les liaisons avec le TRS80, les unites de disquette 
et l'lmprimante se font par cables plats. Les con- 
necteurs sunt a contacts etames ( et non dores). 

- L'lnterface de liaison avpr 1p TRSRf} nnmportp quel- 
ques ameliorations par rapport a l'lnterface TANDY. 

L' utilisation de circuits integres ernetteurs/recep- 
teurs plus performants 74LS241 avec hysteresis et la 
presence de ponts de resistances sur les signaux de 



controle de la memoire (MUX RAS CAS WR) devraient e- 
liminer les problemes rencontres avec 1' expansion TAN- 
DY, eviter 1' utilisation de cables blindes ou ampli- 
fies, et eventueliement permettre une longueur de ca- 
ble de liaison plus importante. (Nous ne l'avons pas 
teste mais l'essai merite d'etre tente). 

En conclusion, nous dirons que I 1 interface MDX2 cons- 
titue une excel.ente alternative pour le3 possesseurs 
de TRS80 modele 1 ou compatibles, deslreux d'etendre 
les possibilites de leur micro. 

La realisation du KIT ne pose pas de problemes parti- 
cullers, et le bilan financier est somme toute tres 
positif. A titre indicatif, le prix moyen des compo- 
sants servant a equiper la carte est de l'ordre de 
1300 F. 

Seul regret, 1' impossibility d'utillser le MODEM in- 
tegre pour echanger des donnees avec des equipements 
conformes aux norraes francaises. 



.Henri Frere 



essai materiel 



Entre cassette et disquette: 

la galette 




Ce qui surprend 
au premier contact avec 1'Exatron 
Stringy Floppy c'est la grande legerele de 1' ensem- 
ble (a peine 500 grammes) associee aux dimensions re- 
duites ( 150 mm x 1 10 mm x 60 mm) de son boltier rec- 
tangulaire de protection. 

La face avant s'ouvre sur une fente horizontale de 
70 mm x 5 mm, destinee a "avaler" les fameuses "ga- 
lettes" (ou Wafers en anglais), support des informa- 
tions (programmes ou donnees) a memorlser. 

Comme leur nom peut le laisser supposer, ces micro- 
cassettes de format rectangulaire ( 70 mm x 40 mm) ont 
une epalsseur tres reduite (5 mm), elles contiennent 
une tres fine bande magnetique sans fin, proposes par 
le constructeur sous differentes longueurs : 5, 10, 
20, 50 et 75 pieds, permettant de stocker respective- 
ment environ 4, 8, 16, 10 et 60 K octets de programme 
ou donnees. L'ecriture/lecture du "WAFER" s'effectue 
sur une seule face, un systeme de detrompage evite la 
mauvaise insertion dans 1' enregistreur/lecteur , un 
petit autocollant reflechlssant blanc posltionne sur 
le dessus de la "galer.te" permet une protection con- 

tre toute tentative d'ecriture lnvolontaire. 

La connexion (testee sur modele 1) est extremement 
aisee tant du point de vue alimentation ( 1 cordon 
secteur 220 V) que cote raccordement de donnees (pri- 
se feme lie 10 broches sur connecteur clavier ou ex- 
tension BUS de l'lnterface d' expansion) . 

I.'act.ivAtion du dispositif se fait tres eimplcmcnt 
sous BASIC par SYSTEM et ? / 12345 avec affichage aus- 
sitot d'un "message de bienvenue" indiquant cue le 
STRINGY FLOPPY est pret a 1 'utilisation. 
Le programme interne du systeme est contenu dans une 
EPR0M aux adresses memoires inutilisees 3O0O-37DE ne 
provoquant aucune interference avec ies programmes 
utllisateurs. 



La vitesse de transfert des informations est de BOO 
octets par seconde (6400 bauds = 800 x 8) a comparer 
a la vitesse max de 500 bauds scus modele 1, solt un 
gain de vitesse de 12, ce qui par exemple donne envi- 
ron 18 secondes pour charger un programme de 11 K a- 
lors qu'il faudrait environ 4 minutes pour le meme 
programme charge par le cassettcphone . 
Le gain est particulierement spectaculalre pour les 
flchiers de donnees (utilises par exemple dans les 
aventures) qui necessitent avec cassette parfois plu- 
sieurs dizaines de minutes alors qu'avec "EXATR0N 
STRINGY FLOPPY" le temps peut etre ramene a quelques 
dizaines de secondes (gain pouvant atteindre 30). 



Les flchiers (programmes) sont reperes sur la bande 
par des n° allant de 1 a 9y, les ordres dr- sauvegarde 
lecture sont tres simples ((p SAVE , @ LOAD) ceci etant 
le cas u es programmes BASIC, l'ecriture des program- 
mes macnine necessitant 1' indication supplementaire 
de3 adresses de debut de prugraiiBiie , point d'executlon 

et nombre d' octets du programme. - 



Les commandes des flchiers de donnees (@ CLEAR, e! OPEN, 
<? INPUT. £, PRINT, Q CLOSE) permettent d' avoir une appro- 
che de gestion de fichier du typ» de celle rencontree 
sous BASIC DISQUE (mais neanmoins beaucoup plus rudi- 
mentaire) plus souple que celle des flchiers elabores 



sur cassette. 

Une derniere commande © NEW permet d'ef facer une ban- 
de (et de facon indirecte de connaitre le nombre d'oc- 
tets libres restant sur la bande;. 
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Er. resume, nous sommes tres loin bien sur, de la ri- 
chesse offert'e par un veritable Systeme d' Exploitation 
Disque <pas de repertoire etc..) mais le "STRINGY 
FLOPPY" peut etre considere comme une alternative va- 
lable a l'utilisation du disque si l'on place dans 
la balance les couts respectifs des deux investisse- 
ments (environ raoitie avec "STRING? FLOPPY"). 

D'autre part, le distributeur nous signale l'abandon 
par Exatron du Stringy Floppy sur modele 3 qui etait 
d'un prix encore plus eleve (3 1| 95 F) . 

CONCLUSION 

Le "STRINGY FLOPPY" est plus proche (par son principe 
merae de stockage sequentiel) du cassettophone que de 
l'unlte de disque, cependant sa vitesse de transfert 
de donnees (dans la mesure oil la taille des program- 
mes a stacker est du merae ordre de grandeur que la 



capacite de stockage du WAFER) est le point fort a 
signaler bien plus que la diversite des ordres du rao- 
niteur qui reste tres limites ; il faut signaler par 
ailleurs la tres bonne fiabillte des operations u'e- 
criture/lecture verifiee apres plusieurs dizaines de 
cycles de ce type (a rendre jaloux le plus optimiste 
des utilisateurs de cassettes !!!). 

L'achat d'un "EXATRON STRINGY FLOPPY" nous paralt done 
un investissement raisonnable poiii' un utilisateur ne 
pouvant directement s'offrir le "luxe" des disques ; 
nous ne pouvons espere" qu'une chose au niveau de sa 
distribution francaise, e'est une prochaine baisse de 
prix telle que celle signaled au USA ; a cette condi- 
tion, ces "GALETTES" nous paraltront plus digestes !!! 



Reml Pineau 



utilitaire modele 2: 



Renommez-les 
sans NAME ! 



Les lecteurs de notre numero 5 ont appris que l'on 
pDuvait gagner PEEK et POKE en perdant OCT$ et NAME. 
Mais alors comment remplacer 1 ' instruction <NAME "T0- 
TO" AS "LULLU"> dans un programme BASIC ? 

La premiere solution consiste (conme chacun salt), a 
utiliser sous BASIC la Commande DOS RENAME : 

130 SYSTEM" RENAME T0T0 LULU ( ou T0TO TO LULU) 

L' inconvenient majeur est que la Commande RENAME n'ac- 

cepte que des constantes. 

Cette limitation peut etre tournee par l'emploi (ju- 

dlcieux) de PEEK et de POKE pour "composer" caractere 

par caractere les parametres (ici TOTO LULU) de la 

commande. 

Procede amusant, lnstructif mais manquant de legerete. 

De plus RENAME(cde) gratifie l'emetteur d'un compt-e 
rendu d' execution : 

TOTO:0 — >LULU 



souverit utile, mais parfois dlsgracieux pendant l'e- 
xecution d'un programme BASIC. 

LA FOLTINE SVC "RENAME" 



Celle-ci ne travaille que sur des variables et non 
des constantes "chalne". Cet inconvenient est mineur 
puisqu'on a le loisir de faire au dernier moment : 

nnnn F1$="T0T0":F2$="LULU 

Le mar.uel precise que les 2 chalnes (ancien nom, nou- 
veau nom) doivent etre fermees par un<CR>. En fait 
le caractere 'ESPACE' peut egalement servir de deli- 
miteur. Si nous nous en tenons au manuel nous pour- 
rions avoir : 

nnm P1$ = H'1$+CHR$( 1 3> : F2$ = F2$*CHR$( 1 3) 
Voici le programme complet : 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 



NOM/E - Auteur 



Bernard BESSE 



CLEAR :CLS: ON ERROR GOTO 500 

GOSUB 330' — INIT 

INPUT "Nom ACTUEL " ;F1* 

INPUT "Nom NOUVEAU ";F2* 

F 1 $=F 1 $+CHR* (13): F2*=F2*+CHR* (13): GOSUB 

END 

' ###################### 

:REM<RENAME> 

XX=VARPTR(F1*):G0SUB 260:A1(3)=XX 

X X=VARPTR (F2* ) : GOSUB 260 : A 1 ( 5 ) =X X 

DEFUSR1=VARPTR( Al ( 1 ) ) : Al (0)=USR1 (0) 



190'- RENAME 
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230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



IFA1(0>>0 THEN PRINT'Origine RENAME - ERR DOS";A1<0) 
RETURN 



:REM<ADR> 

XX !=XX+l:GOSUE 300: X 1=XX : XX ! =XX+1 :GOSUB 300:X2=XX 

XX !=PEEK(X1 )+256*PEEK<X2> :GOSUE 300: RETURN 



:REM<OVER> 

IF XXK32768 THEN XX = XX !: RETURN ELSE XX = XX ! -65536 : RETURN 

:REM<INIT> 
DEFINTA-Z 



GOSUE 260' <Appel bidon) 



DATA 12094 

DATA 8448 

DATA 

DATA 4352 

DATA 

DATA 207 

DATA -15616 

DATA 15099 



3E2F 
0021 
0000 
0011 
0000 
CF00 
00C3 
FB3A 



A1=8:DIMA1 ( Al ) :FORK=lTOAl :R£AUA1 (K) :NEXTK 
RETURN 



:REM<ERR> 

SON ERROR GOTO 



****** 



On volt comment, la sequence d'appel en nombre entiers 
permet le passage des parametres (adresses de Fl$ et 
de F2$ ) . 

Par ailleurs, notons qu'll ne faut pas indroduire de 
variable nouvelle lors des calculs d' adresses, ou en- 
tre le DEFUSR1 et l'USRL En effet, 1' introduction 
de nnuvelles variables modifie ies adresses dca va- 
riables deja connues ainsl que eel les des pointeurs 
de chaines. L'appel "BIDON" au sous /programme de cal- 
cul d' adresses, a pour but d.» faire connaitre a.u pro- 
gramme 1' existence des variables presentes dans ce 
sous-programme . 



L'utlliaation de la variable d'indice 0<AK0J>, To — 
cement deja connue du programme est une astuce que 
nous tenons de Jean LE FLOUR (de I'A.U.T.). 

Notons pour finir, que contrairement a la commande 
DOS RENAME, la routine SVC RENAME nVilTiche pes de 
comptc-rendu d' execution. Neinmoins, a! 1 ' on pergoi-- 
de3 ronflements puissants provenant du "Drive", il 
peut etre tenu pour probable qu'll s'est passe quel- 
que chose. . . 



.Bernard Besse 



jeu 



Soyez un peu taquin 



Maintenant que tout le monde a son "cube" ou presque, 
vous souvenez-vous encore du Taquin qui nous a occupe 
pendant nos heures de solitude ? Rlen que 15 plons nu- 
merotes a remettre dans 1'ordrp rrolssant, en passant 
par une seule case vide. Vous vous souvenez ? II est 
enfoui quelque part au grenier ? Qu'a cela ne tienne, 
votre TRS est surement plus accessible lui, et peut 
tres bien le remplacer... 

Ce programme a ete mis au point sur un modele 3 equl- 
pe de disquette (emploi de 1 ' instruction DEF KN du 
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BASIC diaque) mais pcut Lourner sans probleme sur mo- 
cele 1 (C'est vrai, nous l'avons essaye r NDLR). 11 
r. 1 utilise aucun true particuiier : c'est du 3ASTC, 
tout simplemer.t. Pour ceux qui n'ont pas de disquette, 



pas de probleme non plus moyennant les quelques chan- 
gement decrits ci— dessous. 

Bon amusement a tous, petits et grands ! 



Li&ns^ a modifier pour 1' utilisation eft BASIC cassette: 



30 ' version BASIC 2 cassette E2 










505 Z = 153t>B+< I*192> + <J*9> :REM8E 










510 IF TU;J) = 16 THEN POKE Z>32 : 


POKE Z+2 


32 : 


GOTO 


550:REM36 


520 IF Td-JXlO THEN POKE Z>32 : 


E=T(Ii J) 


ELSE 


POKE 


Z;49 : E=T( 


I >J >-10:REM54 










530 E=E+48:REM54 










540 P0KF ?+-?,F:RFMA7 










745 Z=15368+<X*192)+(Y#9) :REM7F 










750 IF TIXjYXIO THEN POKE Z » 32 i 


E=T(X;Y) 


ELSE 


PO-fE 


Z>49 : E=T( 


X>Y)-10:REH14 










760 E=E+48:REM6E 










770 POKE Z+2>E:REM80 










785 Z=15368+(X*192)+(Y*9) :REM5t 










790 POKE l?32 : POKE Z+2 > 32 : REM76 











1 ' 


+ FF 




? 


(C) TRACE; L et C Nieolai ! FE 




3 ' 


, l c"n 




p r i; 


4 ■ 


Conf i Surat i on tape : ! FC 


^— — »^ 


5 ' 


modele 1 ou 3j 16k ! FB 


jrifi1*M$S± 


6 ' 
10 


BASIC dissue ! FA 




F6 


20 


DEFINT C-T : DIM T ( 4 , 4 ) , R ( 16 > : REMBB 


w*— ' • 


30 


DEF FNP (X;Y)=1536S+(X*192)+(Y*9) :REMBA 


X^OLt/ 


40 


CLSS-REWS.4 


^"* — ^ 


50 


3 RINT CHR$(23) : FOR 1=1 TO 5 i PRINT : NEXT 


I:REM7D 


60 


'PINT TAB(IO) "JEU DU TAQUIN" : REM39 




70 


FOR 1=1 TO 4 : PRINT : NEXT 1:REM03 




SO 


PRINT "VOULEZ-VOUS DES EXPLICATIONS ?":REMAD 




90 


H=INHEY$ : IF R$="" THEN 90:REM07 




100 


CLS : IF R$<>"0" THEN 240:REM3C 




110 


PRINT " LE .IFU FST UN TABLEAU CONTENANT 15 


PIONS NUMEROTES 


DE 


1 A 15. ":REMB0 




120 


PRINT " LE BUT DU JEU EST DE LES PLACER EN 


ORDRE CROISSANT 


7 EN":REMQ5 




130 


PRINT "DEPLACANT SUCCESS I VEMENT UN JETON A LA FOIS; VERS LA 


CASE":REM94 




140 


PRINT "VIDE QUI LUI EST CONT IGUE . " : REM05 




150 


PRINT:REMB8 




160 


PRINT "CETTE DEPNIERE SERA K1NALLMENI CONSIDEREE COMME PRENA 


NT LA":REMA2 




170 


PRINT "VALEUR 16 (SOIT COIN INFERIEUR DROIT) 


":REM18 


ISO 


PRINT:REM9A 




190 


PRINT " LES DEPLACEMENTS S'EFFECTUENT EN UTILISANT LES 4 F 


LEC 


4ES":REM2E 




200 


PRINT "DU CLAVIER; CELLES-CI REPRESENTANT LE 


MOUVEMENT FAIT 


PAR 


LE" :REM82 




210 

s 

220 


PRINT "PION POUR SE METTRE A LA PLACE DE LA 


CASE VIDE. ':REM9 


PRINT : PRINT : PRINT "POUR JOUER; APPUYEZ SUR UNE TOUCHE... 


":REMFD 




230 


R*=INKEY$ : IF R*="" THEN 230:REM4F 




240 


CLS:REM8C 




250 


C=0 : RANDOM :REhFE 




260 


FOR 1=1 TO 15:REM08 




270 


DR=0 : K = RND( 15) JREM67 




280 


IF 1=1 THEN 320: RE MA A 




290 


FOR .=1 TO I:REMQ6 




300 


IF K=R(J) THEN DR=1 : J=1:REM2F 




3 1 


NEXT J :REMFB 




320 


IF DR=0 THEN R(I)=K ELSE 270:REM57 
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330 NCXT 1:REME5 

3<rQ R(16)-=16:REM65 

350 FOR 1=1 TO 4:REME0 

360 FOR J=l TO 4:REMD5 

37U T(I >J )=R( ( I-l)*4+J) :REMFE 

380 NEXT J»I:REM3D 

390 X=4 : Y=4:REM7C 

400 ' DESSIN DU JEU 6F 

410 FOR 1=31 TO 96:REM36 

420 SETU76) : SET i I > 14) : SET U 7 15) : 

ETU732) : SET(I J 33) : SET< 1 7 41 > : REM8 1 

430 NEXT I :REMS1 

440 FOR 1=31 TO 95 STEP 16:REME6 

450 FOR J=7 TO 40:REM45 

460 SET(1 3 J) : SET I 1 + 1 7 J ) : REMD5 

470 NEXT J 7 I :REHE3 

480 ' MISE EN PLACE DES PIONS IF 

490 FOR 1=1 TO 4:REM54 

500 FOR J=l TO 4:REM49 

510 IF T(l7J)=16 THEN POKE FNP(I»J 

GOTO 550:REM5D 

520 IF Td.JXIO THEN POKE FNPIItJ 

I»J)749 : E = T< I 7 J )-10:REMCC 

530 E=E+48:REM54 

540 POKE (FNP( I 7 J )+2> >E:REM52 

550 NEXT J 1 I :REM92 

560 ' CONTROLE ORDRE OU PAS CE 

570 FL=0:REM2D 

580 FOR 1=1 TO 4:REMF9 

590 FOR J=l TO 4:REMEE 

600 IF 1 = 1 AND J = l THEN K = T ( I 7 J > : 

610 IF TdrJXK THEN FL=1 : 1 = 4 : 

620 K=T( 1 7J ) :REMOE 

630 NEXT JjI!REM« 

640 IF FL=0 THEN 810:REMF5 

650 ' ATTENTE DUNE COMMANDE 74 

660 R*=INKEY* : IF R*="" THEN 660: 

670 D=D : F-0:REM92 

IF ASC(R*)=1Q AND X>1 THEN D=- 
IF ASC(R*)=91 AND X<4 THEN D=l 
IF ASC(R*)=8 AND Y<4 THEN F=l: 
IF ASC(R*)=9 AND Y>1 THEN F=-l 
IF D=0 AND F=0 THEN PRINT 3975 

NEXT T : PRINT 39757" "; : GO 

730 C=C+l:REMCB 

740 T(X ; Y)=T(X+D7Y+F) :REM1D 

750 IF TUiYKlO THEN POKE FNP(X7Y 

X7Y)?4? : E=T(X7Y)-1D:REM50 

760 E=E+48:REM6E 

770 POKE CFNP(X7Y)+2) 7E:REM4D 

780 X=X+D : Y=Y+F : T ( X 7 Y)=16: REM8 

790 POKE FNP(X7Y) ; 32 : POKE (FNP'.X 

800 GOTO 560:REMB5 

810 ' EN ORDRE D3 

820 IF C=D THEN PRINT 39007"V0TRE 

AUT LE MELANGER..." : FOR T=l TO 2 

830 PRINT 39007 "BRAVO7 VOUS AVEZ R 

840 IF C1=0 THEN C1=C : PRINT 3965 

" : GOTO 870:REMF0 

850 IF C<C1 THEN C1=C : PRINT 3965 

TO 870:REM95 

860 PRINT 3975? "MEILLEUR SCORE" IC 

NT " EGALE! "; :REMFB 

870 FOR T=l TO 500 : NEXT T:REM55 

880 PRINT 39007 "UNE AUTRE PARTIE ? 

890 PRINT:REMD1 

900 R*=INKEY$ : IF R*="" THEN 930: 

910 IF R$="N" THEN PRINT "AU REVO I 



SETCI723) 



SET( 1 724) 



>?32 : POKE ( FNP ( I ? J ) +2 ) ? 32 : 
)?32 : E=T ( I 7 J ) ELSE POKE FNP( 



GOTO 630:REMF8 
J=4:REM0D 




680 
690 
7 00 
710 
720 



REM98 

l:REMC3 
:RE(179 
REM9E 
:REMCA 

7"ERREUR"; : 
TO 650:REI101 



FOR T=l TO 200 



)>32 : E=T(X;Y) ELSE POKE FNP( 



F 

7Y)+2) 732:REM61 

JEU ETAIT RESTE EN ORDRE- IL F 
00 : NEXT T : GOTO 240:REM83 
EUSSI EN" !Ci "COUPS. ":REM78 
-"MEILLEUR SCORE" iCl; "COUPS. 

-"NOUVEAU MEILLEUR SCORE" : GO 

l; "COUPS"; : IF C=C1 THEN PRI 

"> STRING$(29)" "):REMFA 

REMAA 

R. . ." : END ELSE 24D:REM2D 



L. et C. Nicolai 
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graphiques 

Portez a l'ecran 
votre logotype 




Voici un petit programme d'aide a la realisation de 
votre logo. Place en tete de vos programmes, ceux-ci 
auront un caractere personnel. 

II vous faudra tout d'abord choisir un dessin se pre- 
tant bien a la transcription en paves graphiques. 
Pour ce faire, aidez-vous de la grille d'ecran donnee 
en annexe du manuel Tandy. 

En lancant le programme, la liste des commandes appa- 
ra£t a l'ecran. Voici quelques explications. 

La syntaxe d'une commande graphique est la suivante : 

<p> , <c> , < 1> ,< A ou E > 

ou<p>designe un nombre representant le codage d'un 
pave graphique (voir plus loin).<oun numero de co- 
lonne entre et 63, < 1 > un nume.-o de ligne entre 
et 15 et<A ou E>une commande pour Allumer ou Etein- 
dre les elements du pave decrit. Le codage du pave 
est represents ainsi : 



1 


2 


3 


4 


5 


6 



Pour allumer les elements 1, 4 e: 5 par exemple, a 
1' intersection de la colonne 10 et de la ligne 4, la 
commande graphique sera : 

145, 10,1, A 

Pour allumer tout le pave : 123456, 10, 4, A 

Si l'on desire ecrire du texte, le principe sera peu 
different : 

9 , < colonne> , < ligne > , < A ou E > 

le texte se terminera par un appui sur la touche guil- 
lemet . 

Voioi quelques commandes complementaires : 



- la touche CLEAR annule la commande en cour, 

- la fleche a gauche efface le dernier element affl- 
che, 

- les fleches a droite et vers le baa repetent dans 
1 ' une de ces deux directions le dernier pave affi- 
che, 

- I inverse la video ( ou la retablit), 

- R efface Lout l'ecran (remise a zero), 

- C convertit le contenu de l'ecran en lignes BASIC, 

- S termine le programme (Stop). 

MODE D'EMPLOI 



Apres avoir entre et sauve le programme LOGO, lancez- 
le el*. ^fipi]yp7. sur un** r.nuohp Quelcoliquc pour passer 
la description des commandes. Presses la touche R 
pour ef facer l'ecran. 

Lorsque votre logo est compose , f rappez la touche C : 
le caractere "C" apparait en bas et a droite de l'e- 
cran indiquant la phase de chargement des lignes BA- 
SIC. Apres disparition du "C", frappez sur "S" (stop). 
II ne reste plus en memoire que les lignes utiles ( 1 
a 9) contenant votre logo que vous pourrez placer en 
tete de vos programmes. 



QUELQUES PRECISIONS 



Les lignes 2 a 8 son; composees de 128 etoiles (*), 
la ligne 9 de 127 etoiles, suit 1W23 octets cumposaril 
l'ecran. Le 1024 eme n'est pas utilise pour eviter 
une remontee de 1 ' image vers le haut (scrolling). 

Vous pouvez egalement modifier un logo existant si 
vous disposez de la commande MERGE (fusion de pro- 
grammes) ou d'un utiiitaire remplissant cette func- 
tion. II suffira alors de charger LOGO en memoire 
puio dc lc "merger" avec lea lignea 1 a V du logo a 

modifier. Dans ce dernier caa, ne pas employer la 

commande "R" . . . 



'Wi 



1 DE 

2 AB 

**** 
**** 

3 AB 

**** 

**** 

4 AB 
**** 
**** 

5 AB 
**** 
**** 



FSTR A 
( ) = " * 
****** 
*****" 

(1)="* 
****** 

*****" 

( 2 ) = " * 
****** 
*****" 
(3)="* 
****** 
*****" 



:R 
** 
** 
:R 
** 
*# 

:R 

** 
** 

:R 

** 
** 
:R 



EM26 

****** 

****** 

EME1 

****** 

****** 

EMBF 

****** 

****** 

EMDD 
****** 
****** 
EMDB 



*Cv 



..I '%*. 

*****#******«*« **»**************************#•«• w>2 

********************************************** -!qlu 



*****#*#************************************** 
**************#*************#**************#** 

************#**********#********************** 
*************#**************#**#****#********* 

************##*******#**************#*##*#**** 
********************************************** 
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6 AB (4)= "a************************* ***************************** 
**************■**#■*■***#*#■*■*************************************** 
********* " : REMD? 

7 A B ( 5 ) = "*********************** **** ********************** ****** 
***************************************************************** 
*********■' :REMD7 

8 AB(6) ="*#***************************************************** 
**************************************************************** 
********* '':REMD5 

9 AB(7) = "********#********** ********************#-ii ******* ******* 
****************************** ******* x ****** ********* ** * ******** 



TO 



THEI- 



! PRINT AB(I) 
L=1022:REM23 

L=1022:REMD; 



******** : FOR 1=0 
10 GOTO 36D:REMD0 
L=L+1 : IF L>1022 
RETURN:REM50 
L=L+63 : IF L>1D22 THEN 
PRINT ai_>CHR*(K ) ; :REM96 
GOSUB 20 : J=0:REM4S 
AA="":REM1F 
A=INKEY* : IF A=" 
IF A="? " THEN 200 
IF A="A" OR A="E 
IF ASC(A)=9 THEN 

ASC(A)=3i THEN 6Q»REHQ8 

ASC(A)=10 THEM 40:REM03 

A="C" THEN 300.-REMEB 

A="I" THEN X=USR(0) : GOTO 60=REMD2 



NEXT isremb: 



THEN 


BQJREM7C 


REM35 




THEN 


21Q:REMA3 


PRINT 


3L ? C'HRtCK) 



IF 

IF 
IF 
IF 

IF 
IF 

IF 



GOTO 6Q:REM3E 



AA=AA+A : 
AC(J)=AA 
IF AC<0)= 
K=0 : FOR 

: NEXT I 



GOTO S0SREM2C 

J=J + 1 : GOTO 7Q:REMF3 
9" THEN GOSUB 250 : GOTO 27Q:RLi1F6 




l=VALi!1I0$(AC(0) tlil) > -1 



K=K 



20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 IF A="B" HEN CLB : DELETE 10-540: REM 

170 

180 if 

190 

200 

210 

220 

+ 2CM 

230 

240 

250 

260 

270 

280 

290 

300 POKE 16383 ? 67 : L=15360 : J = 127 : FOR 1=0 TO 

(I)) : K=PEEK(K+l)+PEEK(K+2>*256 : FOR L=L TO L+, 

L) : 

310 NEXT I : POKE 16363*32 : GOTO 60:REM4B 

320 IF PEEK( 16396)=201 THEN POKE 16526 id : 

EFUSR=3200Q:REMFO 

330 FOR 1=32000 TO 32029 : READ R ! POKE IjR ! NEXT ISREH91 

340 DATA 337076U7l?0?4; 126; 254 ; 32 ; 32? 2 ; 62 ? 128 ? 203 ? 127 ? 40 76; 47 ? 20 

3 7 255 > 203? 183? 119 7 35; H7 121? 176 ; 32 7 233 7 201 : REM A6 

350 RETURN SREHOF 

360 CLS : PRINT "CHARGEUR DE LOGO" : DEFINT B-Z : GOSUB 32QSREM3 

B 

370 

380 

390 

INT 

OU 



1 = 1 TO LEN(AC(Q) ) 
: GOSUB 250:REMD3 
K=K+128 ELSE 



IF A="A" THEN 

PRINT ai_?CHR$(K>; : GOTO 60 

L = VAL(AC(2) )*64 + VAL(AC( 1.) ) 

RETURN:REM6? 

A=INKEY* : IF A="" THEN 270 

IF ASC(A)=34 THEN 60:REM64 

PRINT aL?A; : GOSUB 2U : GOTO 270:REI16A 

POKE 16383? 67 : L=1536Q : J = 127 : FOR 1=0 
: K=PEEK(K+l)+PEEKCK+2>*256 : FOR L=L TO 
K = K+1 : NEXT L : IF 1 = 6 THEN J=J -1 :REMF5 



K=63-K+12S:REM7A 
SREMAB 

: IF L>1022 THEN 

IREM8C 



l=iq: 



K = 'v'ARPTR(AB 
POKE K?PEEK( 



POKE 16527' 125 ELSE D 



PRINT"- DEFINITION DU PAVE GRAPHIQUE :":REMDC 
PRINT ?"1 2" : PRINT 7 "3 4" : PRINT ?"5 6"sREM74 
PRINT "- SYNTAXE D ECRITURE D' UNE COMMANDE GRAPHIQUE 
"CODECS) DE 1 A 6? POSIT I ON HOP. 1 2 DE A 63; VERT DE 
A (ALLUME OU ETEINT ) " : REM94 



: PR 
15?E 



400 PRINT 



PRINT "'CLEAR—EFT ACEMEN'T COMMANDE EN COURS 



PRINT 



TRACE N" 6 - luillel 1983 - 25 



FLECHE A GAUCHE=EFFACEMENT DERNIER ELEMENT, R= EFFACEMENT TOTAL" 

:REMC6 

410 PRINT "FLECHE A DROITE OU EN BAS=REPET IT I ON DU CARACTERE" : RE 

M5Q 

',20 PRINT "I-VIDEO INVERSE" : PRINT "C=CHARGE LA VIDEO EN BASIC" 

SREMF9 

430 PRINT "S=STOP ET FIN":RENQF 

440 PRINT "- MODE TEXTE : 9i HUH I Z 7 VERT ? A OU E (FIN TEXTE PAR "? 

CHR$(34); ")";:REM48 
450 A=INKEY* : IF A="' ; THEN 450 ELSE PRINT : FOR 1=0 TO 7 : PRIN 
T ABU)J* NEXT I : GOTO 60:REMBF 
460 
470 
480 
490 
500 
510 
520 
530 
540 



j.j 



. C> 1983 TRACE et R. Piette 

Co n f i a u r a t i o n t y f e : 

- rRB-BD made le 1 nu 3 

- 16 ? 32 ou 48k 
-- cassette ou d i s =. u e 1 1 e 



-- + 


2? 


1 


IF 


-•- + 


15 


1 


OB 


1 


01 


1 


F6 


1 


EC 


h 


E2 



sO M V 



v o lfi 









. Rerai Piette 



utilitaire 



Un mini-moniteur 
en Basic 



II est parfois pratique d'ecrire un petit programme 
en langage machine sans pour cela utiliser l'editeur 
assembleur (EDTASH par exemple). Peut-etre ne l'avez- 
vous pas, d'ailleurs ? On doit pour cela utiliser des 
POKEs mala la conversion des valeura hexadecimales en 
base 10 eat longue et fastidieuse. 

Le programme BASIC que Je vous propose perniet d'ecri- 
re directement en hexa ou en decimal avec en prime 
les commandes suivantes : 

- conversion HEXA/DECI et DECI/HEXA 

- DUMP en ASCII ou en hexa -► ASCII 

- protection d'une zone memoire ou sera placee la 
routine ! 

NOTA : cette derniere commande doit etre imperative- 
ment employee AVANT de commencer l'ecriture de la 
routine ! 

Toutes les valeurs introduites sont impiicitement con- 
siderees comme etant exprlmees en hexadecimal (el les 
peuvent optionnel lement se terminer par le caractere 
H) . Une valeur decimale devra se terminer par le ca- 
ractere D. 

ATTENTION : si vous voulez introduire la valeur hexa- 
decimal e MD par exemple, 11 faudra l'ecrire : 1DH, 
slnon le programme la considerera comme etant decima- 



le (car se terminant par un D). 

Pour ecrire des valeurs en memoire (2, 4B, 12, D par 
exemple), il faut commencer par placer le pointeur a 
l'adresse choisie. Cela se fait simplement par la com- 
mande ORG qui Tixe l'adresse d'origine. Exemple : 



SIZE 


FFO0 


ORG 


FF00 


2 




.'ih 




12 




DH 





Les chiffres frappes sans etre precedes d'une comman- 
de seront places dans cette zone, le pointeur etant 
increrr.ente a chaque introduction. 

Les cenversions deci/hexa et hexa/deci se font respec- 
tivement par les commandes CVDH et CVHD. 

Les ctmmandes DUMP (examen memoire) demandent l'adres- 
se de debut de la zone a lister. Les caracteres ASCII 
non affichables sont rsmplaces par un point. Normale- 
ment, le DUMP s'effectue sur toute la hauteur de l'e- 
cran. Toutefois, la coumande DUMPH <lg> permet d'en 
specifier la longueur. 
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! ' ' FF 

2 ' MINI MONITEUR - Version 1.0 ' FE 

3 ' (C) 1983 TRACE et Gilles Vollant ' FD 

4 ' ' FC 

5 ' Configuration : ' FB 

6 ' modele 1 ou 3? VGS ' FA 

7 ' 16 a 48K 7 disque ou cassette ' F9 

8 ' re 

10 CLEAR 500 : RUN 220:REM4D 

20 IF W*<="9" THEN W=VAL(W$) : RETURN :REM37 

30 IF W$="0" THEN W=0 : RETURN ELSE W=ASC(W$)-55 : RETURN:REMBD 

40 H$="" : REM CONVERSION N2 -> H$ (SUR 16 BIT) 53 

50 IF N2<0 THEN N2=N2+65536 : REM SI N2 EST SIGNE (<0) ON LE TRA 

NSFORME EN NON-SIGNE 44 

60 H»=MID$(Hl$i(N2M096) + l> 1) : Nl = N2-( INT < N2/4096 ) *4096 ):REM8 

5 

70 H*=H$+MID$(H1$? (Nl/256)+lil) : Nl=Nl-( INT ( Nl/256 ) *256 ):REME 

7 

80 H*=H$+MID$(H1$7 (N1/16)+1j1) : Nl=Nl-( INT(N1/16)» 16):REM7F 

90 H$=H$ + MID*(H1$7 (ND + lil) : RETURN:REM21 

100 REM CONVERSION N2 -> H* (SUR 8 BIT) D6 

110 H$=MID*(H1$7 (N2/16)+lil) : N1=N2- ( INT ( N2/ 16 ) *16 ) : H*=H$+MID 

$(H1$7N1 + 1,1) : RETURN-.REM29 

120 REM EN ENTREE X$=rm FINI PAR 3D' EN HEXAj 5IN0N PAR RIEN OU 

3H ' C2 

130 REM EN SORTIE : X = nn B8 

140 IF RIGHT$(X$7 1)="D" THEN X=VAL(X$) : IF X<D THEN X=X+65536 : 

RETURN ELSE RETURN : REM SI NUMERIQUE 33 
150 IF RIGHT*(X*7l)="H" THEN X$=LEFT$ ( X$ ?LEN ( X* ) -1 ) :REM8C 
160 X$="0000"+X$ : X$=R IGHT* ( X$ 7 4 ) : REM1 1 

170 U*=LEFT*(X*7l) : GOSUB 20 : X=( W*4096 ) :REM06 /%( 
180 U*=MID$(X$i2»l) : GOSUB 20 : X= ( W*256 ) +X :REMAD i> £ \A 
190 U*=MID*(X$737l) : GOSUB 20 : X= ( W*16 ) +X :REMD8 I ( "^^ 
200 U$=MID*(X$747l) : GOSUB 20 : X = X+W:REM54 \vS^S 

210 RETURN:REM9C V^, 

220 GOSUB 510 : CLS:REM3F 

230 PRINT "MINI MONITEUR TRS-80 MODELE 1-3 & VIDEO GENIE 1 1 
6 A 48 K":REM1A 

240 PRINT "VERSION 1.0 28/02/83" :REMDO 

250 PRINT "AUTEUR : Gilles VOLLANT COPYRIGHT 1 

983 TRACE" : PRINT:REM97 
260 PRINT "COMMANDES :" : PRINT:REM48 

270 PRINT "ORG <ADR> 7 <VALEUR> 7 DUMPH ; DUMPH <LG>":REMEC 
280 PRINT "DUMPA 7 CV DH i CV HD 7 SIZE <ADR>" s PRINT : 
PRINT:REM48 

290 PRINT "ADR POINTEUR = "; : N2=AT : GOSUB 40 : PRINT H$;"H " 
5CHR$(30) ;:REM8F 
300 C$="":REM53 

310 INPUT" COMMANDE ==> " ; C$ : IF C*=STR ING*(LEN( C$ ) ; 32 ) THEN 
290:REMA3 

320 IF RIGHT$(C*7l)=CHR$<32) THEN C$=LEFT$ ( C$ 7LEN( C$ )-l ) : GOTO 
320:REMBS 

330 IF C*="CV DH" OR C$="CVDH" THEN GOSUB 530 : GOTO 290:REMB4 
340 IF C$="CV HD"0R C$="CVHD" THEN GOSUB 580 : GOTO 290:REMA5 
350 IF C$="DUMPA" THEN GOSUB 650 : GOTO 290:REMC3 
360 IF LEFT*(C$75)="DUMPH" THEN GOSUB 700 : GOTO 290:REM0C 
370 IF LEFT$(C*74)="SIZE" THEN 840:REM34 

380 IF LEFT$(C*73)="0RG"THEN GOSUB 930 : GOTO 290:REM8B 
390 IF LEN(C*)=3 AND LEFTS ( C* 7 1 ) = " ' " AND MID$ ( C$ 73 ) = "' " THEN X = A 
SC(MID$(C$?2) ) : GOTO 460:REM46 
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OR X<0 THEN 50Q:REM43 



400 FOR 1=1 TO LEN(C$) : M$=MID$( C*7 I i 1 ) :REM33 

410 IF M$="H" OR M$="D" THEN 450:REMOO 

420 IF M$>"F" THEN 500:REM9E 

430 IF M*<"0" THEN 500:REMAS 

440 IF M$>"9" AND M*<"A" THEN 500:REMF9 

450 NEXT : X$=C$ I GOSUB 140 : IF X>255 

460 W = AT : IF W>32767 THEN W=W-65536 :REM51 

470 POKE W;X : AT=AT+1 :REM66 ^*°- 

480 IF AT=65536 THEN AT=0:REMB9 

490 GOTO 290:REMED 

500 PRINT"C0f1l1ANDE INVALIDE" = GOTO 29Q:REM23 

510 R1$="0123456789ABCDEF" : H1$=R1$ : I V$ = " . " :REM08 

520 RETURN:REM64 

530 N2=D : INPUT "NOMBRE DECIMAL A CONVERTIR ( NON TERMINE PAR <D 

>) ";N2 : N2=INT(N2) :REMCD 

540 IF N2<-32767 OR N2>65535 THEN PR INT"OVERFLOW" : RETURN:REMF7 






'D" 



550 IF N2<32768 AND N2>-1 THEN PRINT STR$(N2)"D = 

: PRINT H$;"H" : RETURN:REM69 

560 IF N2>32767 THEN N2=N2-65536 :REM6C 

570 PRINT STR*(N2)"D = " ;STR$ ( N2+65536) ? "D + 65536D = "; 

40:PRINT H*;"H" : RETURN :REME5 
580 X*="" : INPUT "NBRE HEXA A CONVERTIR ";X*:REM1D 
590 IF RIGHT$(X$7l)=CHR$(32) THEN X$=LEFT$ ( X$ ; LEN ( X$ ) -1 ) 
590 : REM ENLEVE SPACE A LA FIN 4C 
600 IF RIGHT$(X$7l)="D" THEN 580:REM30 
610 IF RIGHT*(X$ilX>"H" THEN X$=X$+ "H" :REMC4 
620 T$=X$ : GOSUB 140 : X$=T$ : PRINT X$;" = "; 
N PRINT STR$(X);"D" : RETURN:REM5E 
630 PRINT STR$(X)i"D + 65536D = " ; STR$( X-65536 ) 
83 
640 
650 
660 
670 
680 
(K) ! 
690 
700 
710 
720 
720: 
730 
740 
750 
760 
770 
780 
790 
800 
810 



GOSUB 40 



GOSUB 



GOTO 



IF X<32768 THE 



RETURN:REM 



B8 

DEBUT DUMP ";X* : GOSUB 140:REM0F 
16383;97:REM5A 

X+960 : IF I>32767 THEN K=I-65536 
IF KM91 OR K<32 THEN PRINT IV$; 



ELSE 
ELSE 



K=I:REMB7 
PRINT CHR$ 



REM DUMPA 

INPUT "ADR 

CLS : POKE 

FOR I=X TO 

K=PEEK(K) i 

:REM10 

NEXT : RETURN:REMF9 

X$=MID*(C*;6) :REMDD 

IF LEFT$(X$7l)=CHR$(32) THEN X$=MID$ ( X$ ; 2 ) : GOTO 710:REM66 

IF RIGHT$(X$7l)=CHR$(32) THEN X$=LEFT$ ( X$ ? LEN( X$)-l ) : GOTO 

REMCF 

IF X*="" THEN CLS : X=14*16 ELSE GOSUB 140:REMBB 

LN=X:REM53 

X*="" : INPUT "ADR DEBUT DUMP HEXA ";X$ : GOSUB 140:REHB6 

IF LN=14*16 THEN CLS:REM1F 

FOR I=X TO X+LN STEP 16:REM55 

A$="" : FOR J=I TO I+15:REM17 

K=J : IF J>32767 THEN K=K-65536 :REM81 

GOSUB U0:REMO5 

: IF K>191 OR K<32 



K=PEEK(K) : N2=K : 
PRINT H$;CHR$(32) 5 
=A$+CHR$(K) :REMEF 
820 NEXT : PRINT A$; : 
EXT : RETURN:REM55 
830 REM "SIZE" F9 
840 X$=MID*(C$75) :REM51 



THEN A*=A$+IV$ ELSE A$ 



IF POS(0)<>0 PRINT : NEXT : RETURN ELSE N 
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850 IF LEFT$(X$>1)=CHR$(32) THEN X*=MID$( X*»2 ) : GOTO 850:REMD4 

860 IF RIGHT$(X$7l)=CHR$(32) THEN X*=LEFT$ ( X$ >LEN( X$) -1 ) : GOTO 

860:REM3D • 

870 GOSUB 140:REM71 

880 X=X-3 : POKE 165627X/256 : POKE 16561 ? X- (PEEK ( 16562)*256 ) : 

CLEAR 60OJREM68 

890 AT=PEEK (16561)+ (PEEK (16562) #256) +3: REM 1C 

900 GOSUB 51D:REM52 

910 GOTO 290:REM47 

920 REM "ORG" 9F 

930 X$=MID$(C$:4) :REMF8 

940 IF LEFT$(X$;1)=CHR*(32) THEN X$=MID* ( X$ 7 2) 

950 IF RIGHT$(X$7l)=CHR$(32) THEN X$=LEFT$ ( X$ j 

950:REME3 

960 GOSUB 140: REM 17 /^P»I*E 

970 QT=X:RETURN:REMA5 



: GOTO 940:REM7A 
LEN(X$)-1) : GOTO 



voir 



s~Sa 



c f A/o . 






-Gilles Vollant 



jeu: 



Le casse-briques 
reconstructeur 



"Casse-briques" est un jeu ecrit en BASIC niveau 2, 
pour TRS-80 modele 1 ou 3, 16 a 18k, cassette ou dis- 
quette. II est axe sur l'attention et la rapidite et 
prouve que le BASIC du TRS ( tant critique pour sa len- 
teur) peut encore etonner beaucoup de monde. 

Au depart, votre nom est demande afln de raettre a Jour 
le mellleur score qui figurera sur l'ecran. Ensuite, 
sept murs - parfois raoins - sont dessines a des en- 
droita calcules aleatoireraent. Vous disposez d'un ca- 
non mobile qui execute un mouveraent continuel de va 
et vient. En frappant sur una touche quelconque faauf 



HI -SCOPE ETABLI PAR h 




BREAK), une balle s'echappe du canon et casse la pre- 
miere brique du premier mur qu'elle rencontre. Pour 
corser la difficulte, une nouvelle brique s'ajoute 
alors au hasard dans le Jeu. De plus, tous les cinq 
coups, un nouveau mur peut reapparaltre. . . Le score 
est affiche en permanence en bas de l'ecran. II se 
calcule de la maniere suivante : 

- vous avez 1000 points au depart 

- un point est retire a chaque tir 

- deux points 3ont retires a chaque fois que le canon 
dans son mouvement atteint l'une des deux paroi3. 

Le programme etant sonore, 11 est conseille de raccor- 
der un ampliflcateur sur la sortie cassette. 
La perception du lancement d'une balle est assuree 
par une analyse du clavier : PEEM 15359), qui differe 
de zero lorsqu'une touche est enfoncee. L' impact de 
la balle est cherche par la fonctian P0INT(X, v ) et la 
partie se termine lorsque X atteint une valeur nulle. 
Uri message vous propose alors de rejouer une autre 
partie. 

Par precaution, et avant de vous evlter un "memory 
size ?", un calcul est effectue sur les DATA contenant 
la routine sonore. En cas d'erreur, le programme pas- 
sera de lui-meme en mode EDIT. La routine sonore etant 
chargee dans la chaine ZZ$, 11 est conseille de sau- 
ver le programme avant execution. ATTENTION : ZZ$ doit 
obligatoirement ccntenir 15 caracteres ("ROUTINE S0- 
nore*" par exemple) ! 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

20 

30 



C A S S E 



- B R I Q U E S 



(C) TRACE et Dominique DelcoiSne 

Configuration type : 

modele 1 ou 3 

16 a 48k? dissue ou K7 



CLEAR 1000:REM7D 

Generateur 
I1$=STRING$(16>0) : FOR 
REST0RE:REM1F 

PRINT " 



de bruits 
1=0 TO 14 



EC 
! READ 



FF 
FE 
FD 
FC 
FB 
FA 
F9 
F8 
F7 



DA 



S0=S0+DA : NEXT 



ERREUR DANS LA LIGNE 800 ! 



EDIT 800 



40 IF S0O2077 

:REMB5 

50 ZZ$="ROUTINE SONORE*" : AZ=VARPTR ( ZZ$ ) :REM24 

60 Z1=PEEK(AZ+1) : Z2=PEEK ( AZ+2 ) : AD=Z1+256*Z2:REM46 

70 IF PEEK( 16396)=201 THEN POKE 16526 7 Z1 : POKE 16527>Z2 ELSE DE 

FUSR=AD : CMD M T" : REMB5 

80 FOR 1=0 TO 14:REMBF 

90 READ M:REMCE 

100 POKE AD+l7M:REMD7 

NEXT HREMC2 

' Presentation 88 



110 

120 

130 

140 

150 

160 

170 

180 

INT 

R 1=0 

190 ' 

200 

5 : 

210 

30) 

XT: 

220 

230 

240 

250 

260 

270 

280 

290 

RE 

300 

310 

320 

330 

340 



CLS:REMFA 
GOSUB 590 



CLS:REM87 

Initial i sat ion 6A 
A2=0 
READ 




A=0 : B=0 : DB=0 : VD=0 
RESTORE : FOR 1=0 TO 14 
IF HSOO PRINT 30?" 
ai07"CASSE - BRIQUES 

TO 19 : READ CH : POKE 
Cadre 42 
FOR 1=127 TO STEP -1 : 
X=USR(30) : NEXT:REMD6 
FOR L=3 TO 23 : SET(0 7 L) 



H1=0 



Y=5:REMF4 
NEXT:REM8A 
ETABLI PAR " N* ; ELSE 
" : POKE 15400 i 239 : 
15401+I?CH : NEXT:REM4F 



CH 
HI-SCORE 



PR 
FO 



SETU?3 



SET( I ? 43) 



POKE AD+11?4 



SET( 1?L) 



POKE AD+11?45 



X=USR( 



SET(l746-L) 



POKE AD+11745 



de depart 24 



: NC=NC+2 : PRINT 
X=USR(5):REM9D 
GOSUB 390:REM07 



: SET(0746-L) 
REMOC 

Formation des murs 
FOR X=0 TO 6 : GOSUB 330:REME8 
NEXT X:REM31 

Deplacement du canon et analyse 
A=126 : B=RND(36)+4 : DB=1 : NC=0:REMCC 
SET(A?B) :REM6E 
RESET(A7B-DB):REM11 
IF P0INT(A?B+DB)=-1 THEN DB=-DB 
:" IOOO-NC7HS*; : POKE AD+11737 
IF PEEK( 15359)00 THEN NC=NC+1 
B=B+DB:REM1D 
GOTO 270:REM99 

' Trace des colonnes 

E=RND(29)*4:REMF4 
350 IF P0INT(E7RND(39)+3)=-l AND PO INT (E 7RND (39 ) +3)=- 1 
(EiRND(39)+3)«-l THEN 380:REM24 
360 IF RND(2)=1 THEN FOR 1=42 TO 4 STEP -1 
NEXT : GOTO 380:REM65 
FOR 1=4 TO 42 : SET(E7l) : SET(E+l7l) 
RETURN:REMF1 

' Lancement d'une balle 79 

U=(RND(4)-1)*36 : ZX=RMD(40)+3 : SET(W+4>ZX) 



X=USR(30) 



NE 



du clavier 06 



3970 



SCO 



B5 



AND POINT 



SET(E7l) : SET(E+l7 



I ) 
370 
380 
390 



NEXT:REM48 



SET(W+5jZX):R 



EM7B 
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PRINT 39717 "SCORE :" lOOO-NC 7 HS* ? :REM66 

VD=VD+1 : IF VD>5 THEN VD-0 : GOSUB 330:REM1E 

A2=120 : B2=B : POKE AD+11»37 : X=USR(25) :REM9C 

SET(A27B2) : RESET (A2+4 > B2) :REM3F 

IF P0INT(A2-4?B2)=-1 THEN RESET( A2-3 »B2) : POKE AD+11737 



410 

420 

430 

440 

450 

=USR(10) : RESET(A2-47B2) 

460 A2=A2-4:REM76 

IF A2=0 THEN 500:REMC3 

GOTO 440:REMFA 

Fin du Jeu 

FOR 1=0 TO 



RESET(A27B2) 



RETURN:REMEO 



470 
480 
490 
500 
510 

ES 

520 

530 

M2E 

540 

II 

550 



127 



PRINT 307" 

fl 

FOR 1=0 TO 
FOR 1=50 TO 



CLS 



15 
RESETU7B2) 
GAME 

; :REM27 

50 : POKE AD+11737 
1 STEP -1 : POKE 



NEXT 
V E 



I 
R 



REME5 



CASSE - BRIQU 



: X=USR(I) : NEXT I:REMQ4 
AD+11737 : X=USR(I) : NEXT l:RE 



ST$=STRING$(64795) 1 
DESIREZ-VOUS REJOUER 
INPUT B$ : B*=LEFT$(E$>1) 



PRINT ST$ : 
'; :REMC5 
: H1=1000-NC 



PRINT 



PRINT : PRINT 



IF B*="N" END:REMAA 



560 IF H1>HS THEN 

:REM2F 

570 PRINT : PRINT 

PRINT : PRINT : P 
580 A$=INKEY$ ! IF 
590 ' Pres 

600 PRINT 32l7"CAS 
610 PRINT 3847STRI 
620 PRINTJREMEO 
630 PRINT : PRINT 
MPOSE DE PLUSIEURS 

UNE BALLE A L'AID 
640 PRINT : PRINT 
PLACE ALEATOIREMEN 
:REMA8 

650 PRINT : PRINT 
UX POINTS." : PRIN 
ANCE. . ."SREM9A 
660 PRINT 38967" 
670 PRINT 39157"EN 
680 POKE AD+11737 
690 PRINT 39157" 
700 A$=INKEY$ : IF 
710 FOR K=0 TO 75 
720 GOTO 670:REM04 
730 PRINT 38967" 
740 FOR 1=0 TO 2 : 
750 PRINT 38967" 
760 FOR 1=1 TO 60 
1,37 : X=USR(60-I) 



HS=H1 : N*=NO$ : HS$=" HI-SCORE 



+STR$(HS) 



:" HS " POINTS" 



: PRINT "HI-SCORE DE " N$ " 
RINT : PRINT ST$:REMOC 

A$="" THEN 580 ELSE 130:REMA6 
entation BO 
SE - BRIQUES "; :REMEF 
NG$(18795) ;:REMBF 



LE BUT DU JEU EST DE TRAVERSER UN MUR CO 
RANGEES DE BRIQUES. POUR LES DETRUIRE7 LANCEZ 
ED' UNE TOUCHE QUELCONQUE . " :REMDO 

ATTENTION? A CHAQUE TIR UNE BRIQUE SE RE 
TET PERIODIQUEMENT7 UN NOUVEAU MUR APPARAIT !" 

A CHAQUE REBOND DU CANON 7 VOUS PERDEZ DE 
T : PRINT " BONNE CH 

APPUYEZ SUR <ENTER> .":REM13 
TER"; :REMA6 

: X=USR(100) : FOR K = TO 75 : NEXT K:REM11^ 

";:REM10 /£mmT 

A$=CHR*(13) THEN 730:REM2C 
: NEXT KSREM32 



770 FOR 1=0 TO 350 
780 FOR 1=1 TO 60 
1?37 : X=USR(60-I) 
790 RETURN.-REM55 
800 DATA 2057 1277 1 
M51 

810 DATA 49757756? 
2>32:REMBA 



VOIR TRACE NO 2 

NOM : ";:REWBC^S— < 

POKE AD+11/44 : X=USR(10) : NEXT l:REM45 
NOM : "; : INPUT N0$:REM24 
STEP 10 : POKE AD+11737 : X=USR(I) : POKE AD+1 
: NEXT IiREHBA 
: NEXT l:REMCD 
STEP 10 : POKE AD+11737 : X=USR(I) : POKE AD+1 
: NEXT I-.REMA5 

7 175 1 69 » 16 1 254 j 238 7 1 > 21 1 7 255 7 37 7 32 ; 246 » 20 1 : RE 

51 7 32 7 327 68 7 69 7 76 767 7 79 7 73 7 71 7 78 769 7 32 7 68 ? 32 73 



.Dominique Delcoigne 
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enseignement 

La pompe 
aspirante-foulante 




Dans le nuroero priwrtnnt. (TRACE n° h ! . nous vous avons 

preaente un programme illustrant le fonctionnement d' 
une pompe aspirante. Aujcurd'hul (et comme promis...} 
la lecon de raecan^que continue avec une variante : La 



pompe "aspirante-fouiante" . 31 vuus ne cunnalSsiea pas 
la suDti le difference qu' ii y a entve ces deux noddles 
voi ia 1' occasion ou jamais ! 



POM 
(C) 19 



PE ASPIRANTE FOULANTE 

83 - TRACE et R. Henrotaa 



PRINT 



10 'Configuration type : niveau 

20 

30 

40 

50 

60 CLS : PRINT 

TS D'UNE POMPE 

ANT E":REME 
70 FOR X=0 TO 
80 FOR Y=0 TO 
90 PRINT : PRI 
RPS C0MPRENANT 
100 PRINT : PR 

N ":REM47 
110 PRINT : PR 
IEURE":REME2 
120 PRINT : PR 
":REME1 
130 PRINT : PR 

DES CLAPETS ! 
140 FOR T=0 TO 
150 CLS : PRIN 
160 PRINT3257" 
170 CLEAR 300 
180 C$=CHR$(14 
190 F$=D$+STRI 
200 E$=CHR$(9 
210 I$=STRING$ 
220 K$="<= <= 
230 L$="=> => 
240 M$="-> -> 
250 N*="<- <- 
260 Q$=STRING$ 



16k; cassette 



F6 
EC 
E2 
D8 
CE 



ANIMATION REPRESENTANT LES M0UVEMEN 
ASPIRANTE - FOUL 
C 

127 : SET(X>0) : SET(X»10) : NEXT:RFMFO 
10 : SET(07Y) : SET(127 ? Y) : NEXT:REM02 
NT : PRINT"ELLE SE COMPOSE ESSENTIELLEMENT D UN CO 

UN":REM68 
INT" CYLINDRE ET UN PIST 

INT'LE FLU IDE EST ASPIRE PAR LA CANALISATION INFER 

INT'ET SERA REFOULE PAR LA CANALISATION SUPERIEURE 

INT" REMARQUEZ BIEN LE MOUVEMENT 

! ":REM47 

4000 : NEXT-.REM58 

T3897; "ASPIRATION >";=REMA8 

> REFOULEMENT"; :REMF7 

: d=64 : V=0 : A$=CHR$(143) : B$=CHR$ ( 183 ) : REMOC 

9) : D$ = CHR$(191) : H*=CHR*( 128 ) :REM72 

NG$(277B*)+D* : G*=CHR$ ( 140 ) : REM32 

2)+H*+H$ : J$=CHR$< 131) :REM7B 

( lB?A$)+STRING*(4jH*)+STRING*t 18;A4) :REM53 

<= <= <= <= <= <= <= <= <= <= <=":REM77 

=> => => => => => => => => => =>":REM52 

-> -> -> -> -> -> -> -> -> > -> -> -> ->":REMDo 

<- <- <- <- <- <- <- <- <- <- <- <- <- <-" :REMEB 

( 13i 128) ■■ PRINT 3 192?I$; : PRINT 3 704 ? I $ ; : REM3A 



270 FOR X=232 TO 680 STEP D 
280 PRINT a 744;A$; :REM8A 
290 FOR X=640 TO 192 STEP -D 



PRINT 3 X;D$; 



PRINT 3 X?D$; 



NEXT:REM2D 



NEXT:REM4A 



300 PRINT 3 326?F$; 



310 FOR X = 81 TO 145 STEP D : PRINT a X;D$;:REMF8 



PRINT 3 582;F$; :REMD9 



NEXT:REME3 
STEP D : PRINT a X7D$;:REMA8 
NEXT:REMCF 



320 PRINT a X+5>D*; 

330 FOR X=721 TO 849 

340 PRINT a X+57D$; 

350 GOSUB 670:REM73 

360 X=391 : U=24 : Z=0:REM6A 

370 X=X+1 : V=V+1 : Z=Z+1 : U=U-1:REMD8 
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380 


IF V = 70 GOTO 60:REM6F 


390 


FOR Y=X TO X+128 STEP D : PRINT a Y>D$; : NEXT:REMDO 


400 


FOR Y=X+65 TO X+97 : PRINT 3 Y?G$; : NEXT:REMC6 


410 


PRINT 3 392+Z;" ";LEFT$(M$?U) ; :REM8D 


420 


PRINT 3 520+Z?" "?LEFT$(M*;U) ! :REM8A 


430 


PRINT a 3907MID$(M$?U;Z) 5 : PRINT a 518 ; MID* ( M$ ? U 7 Z > i : REMA5 


440 

A 

450 


PRINT a 2767MID*(K$7Z7 15) ; : PRINT 3 644 7 MID$ ( K$ 7 Z 7 15 ) ; : REM7 


IF X=414 GOTO 480:REMBF 


460 


FOR Y=X TO X+128 STEP D : PRINT 3 Y7H$; : NEXT:REM86 


470 


GOTO 370:REM02 


480 


GOSUB 830:REMF3 


490 


PRINT 3 64470$; = PRINT a 276 7 0$ ; : REM06 


500 


FOR Y = 414 TO 542 STEP D : PRINT 3 Y?H$; : NEXT:REM42 


510 


X=414:REM3B 


520 


X=X-1 : Z=Z-1 : U=U+l:REMF9 


530 


PRINT a 390>MID$(N$-iUfZ>5" ";:REMB4 


540 


PRINT a 5187MID$(N$7U7Z) ;" ";:REMA8 


550 


FOR Y=X TO X+128 STEP D : PRINT S Y;D$; : NEXT:REM2F 


560 

A 

570 


PRINT a 417-U7LEFT$(N*7U) ; : PRINT a 545-U 7 LEFT$ ( N$ 7 U ) ; : REME 


PRINT a 2627MID$(L*7Z+l7l5) 5 :REMO0 


580 


PRINT a 6627MID$(L$7Z+1? 15) ; :REMF2 


590 


FOR Y=X+65 TO X+97 : PRINT 3 Y7G$;:REMC8 


600 


PRINT a X+?87H$; : NEXT:REM8A 


610 


IF X=391 GOTO 640:REM1C 


620 


FOR Y=X TO X+128 STEP D : PRINT 3 Y 7 H$ ; : NEXT:REME5 


630 


GOTO 520:REM64 


640 


GOSUB 670:REM50 


650 


FOR Y=391 TO 519 STEP D : PRINT 3 Y7H$5 : NEXT:REMA3 


660 


PRINT a 26270$; :PRINT a 665 ? 0$; : GOTO 360:REMFD 


670 


FOR X=577 TO 581 : PRINT 3 X ? H$; : NEXT:REM9C 


680 


FOR X = 355 TO 359 : PRINT 3 X 7 H* ; : NEXT:REM95 


690 


FOR X=355 TO 359 : PRINT 3 X?H$; : NEXT:REM8B 


700 


FOR Y=23 TO 27 : X=24+(2*Y) : RESET(X;Y) : NEXT:REM18 


710 


FOR Y = ll TO 15 : X=32-(2#Y) : RESET(X?Y) : NEXT:REM14 ^<^>v 
FOR X = 322 TO 325 : PRINT 3 X 7 J* ; : NEXT:REM78 ^"->^\ 


720 


730 


PRINT 3 321;A$; : PRINT 3 6 15 7 A$ ; : REM3C 1 U °'* ? A$\ 


740 


PRINT a 577 7 A$; : PRINT a 359 7 A* ; : REM20 (ol **<%■' ) 


750 


FOR X = 611 TO 614 : PRINT 3 X?J$; : NEXT:REM58 \'^— <* °* 


760 


FOR Y=23 TO 27 : X=56-(2*Y) : SET(X>Y) : NEXT:REMD5 \*oi*S 


770 


FOR Y=ll TO 15 : X=48+(2*Y> S SETU7Y) : NEXT:REMDO 


780 


PRINT 3 1477"[["; : PRINT 3 356 7 ,J C C " ! :REMD7 


790 


PRINT 3 6207 "<- ";" FERME"; : PRINT 3 579 7 "[[";: REM29 


800 


PRINT 3 3647 "<- OUVERT"; : PRINT 3 112i"l OUVERT " ! = REM9E 


810 


PRINT 3 687E$;" FERME"; : PRINT a 787 7 "C C " ! :REM82 


820 


RETURN:REM37 


830 


FOR X = 322 TO 325 : PRINT a X ? H$; : NEXT:REflOB 


840 


FOR X=611 TO 613 : PRINT a X7H$; ! NEXT:REMOO 


850 


FOR Y=23 TO 27 : X=56-(2*Y) : RESET(X ? Y) : NEXT:REM7B 


860 


FOR Y=ll TO 15 : X=48+(2*Y) : RESET(X»Y) ! NEXT:REM77 


870 


FOR X=577 TO 581 : PRINT 3 X?J$; : NEXT:REMD1 


880 


FOR X=355 TO 359 : PRINT 3 X 7 J$; : NEXT:REMCA 


890 


FOR Y=23 TO 27 : X=24+(2*Y) : SET(X7Y) : NEXT:REM58 


900 


FOR Y=ll TO 15 : X=32-(2*Y> : SET(X7Y) : NEXT:REM54 


910 


PRINT 3 687E$; "OUVERT'; : PRINT 3 620?"<- OUVERT ": REM59 


920 


PRINT 3 3237"[["-; : PRINT 3 3647 ,J <- FERME ';: REM2E 


930 


PRINT 3 61l7"[["; : PRINT 3 7727 P '[ FERME ";: REM2F 


940 


RETURN:REMBF 



.Roger Henrotay 
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jeu 



Conduite de nuit 



Vou3 avez peut-etre deja pris la route des vacancea 
au moment oil vous llsez ces lignes ? Peut-etre penaez- 
vous d£ja a la route encombree du retour ? Mors aui- 
vez lea conseils 'futes" de TRACE : partez la nult au 
volant de votre ordlnateur . . . 

Ce programme BASIC ecrit par un etudiant de 16 ans 
(voua voyez blen qu'il exlste de jeunes auteura...) 
iret en oeuvre des effets "apeclaux" extremement ln- 
tereaaanta que l'on ne trouve habituellement qu'avec 
le langage machine. Nous vous laissons les decouvrir. . . 
En Lous caa, bravo a Olivier qui, par la tueme occa- 
sion, est aussl tres bon en anglais puisque o'est dans 
cette langue qu'il nous a fourni le programme ! Noua 
esperons ne pas avoir fait trop d'erreurs de traduc- 
tion ! (NDLR1 



CONDUITE 


D E NUIT (C) 1988 - 


OLIVIER THIVOLET 


i ■ 
■ • 

1 1 


mm COMPTEUP. 


TFMPS 


MFwenr 


1 ■■:•■£: £n- II ■■■ 




B4G t Bk list 


FUEL 


BOITE 
1 3 5 


ese\ /i4e 
eee m 


M 


1 ■ | 1 1 


— W 



"Conduite de nuit" est un Jeu d'adresae ecrlt en BA- 
SIC pour TRS-80 modele 1 ou 3, avec une configuration 
tncmuir-c de l6 f 32 ou ** K, diaquette ou caaaette. II 
coraporte deux routines en langage machine qui lui per- 
raettent de generer des sons. 

Le but du Jeu est de malntenlr le capot de votre voi- 
ture entre les bornes d'une route sinueuae. La condui- 
te est similaire a celle d'une veritable voiture : Vi- 
tesse, acceleration, frelnage, etc... A grande vites- 
se, 11 est conaellle de retrograder avant d'atteindre 
un virage ! Voua trouverez toutea lea inatructlono 
utiles dans la case "message" deaainee aur votre ta- 
bleau de bord. . . 

Pour les lecteura deslrant en 3avoir plus sur le fonc- 
tionnement du programme, voici quelques precisions. 

La boucle principale est placee en debut de programme 
afin d'ameliorer la vltoooe d' execution. La presenta- 
tion du jeu s'effectue sous forme de defilement dans 
une case "message" ; 11 est tres important de respec- 
ter les espaces dans les llgnes de textea BASIC sinon, 
cela provoquerait des decalagea a l'ecran lors de 1' 
execution du programme. II eat possible de jouer seul 
ou a deux et seula les quatre mellleurs scores sont 
memorises. Les routines "dessin du Jeu" et "initiali- 
sation" sont executes* an debut du J#»u seulement. 
II est toujoura possi'sle pour de petites configura- 
tions memoire de supprlmer les remarques et lea espa- 
ces entre les mots-clsa BASIC sana nulre au fonction- 
nement du programme. 

Pour ceux qui veulent entrer dans les details, la Ha- 
te ci-dessous des principales variables utllisees leur 
apportera qviplqims precision*. 

Bonne route ! 



iRIABLES IMPORTANCES 



J J 
NJ 

VT 

VB 

NF(JJ) 

TM(JJ) ei 

TMf (J J) 

VM(VB) 

BM( JJ) 

CAf 

TC 

EM 

NN 

PA$(NN) 

TP(NN) 

TF 

INKVT/7) 

EA(INT(VT/7) ) 
EA$( 
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Joueur courant 
nombre de Joueurs 

vi tesse 
rapport boite 
n i k> e au fuel d e 



J J 



temp 5 de J J 

mi tesse max de VB 

"bourn ! " de J J 

capot 

tabulation capot 

embraaaae 

n u m e" r o d e p a a s a a e 

paasaae nume"ro NN 

tabulation paasaae 

t e" in o i n d e f u e 1 

de 1 a 14 selon VT 

emplacement aiauille 

caract£re effacement 



a i a u i 1 1 e 



FA$( 

EFCNFUJ) ) 

EF$( 

FF$( 

AC 

MJ*(1 4 4) 

MT$( 1 a 4) 

E? 

AM 

A$ a D$ 

CL 

B 

S et M 



caractere a i du i 1 1 e 

emplacement aiduillp fuel de J J 

caract ef facement aiguille fuel 

car act aiduille fuel 

ancienne tabulation eapot 

me i 1 1 eur Joueur 

meilleur temps 

adresse routine son (dans SD* ) 

adresse routine musique (dans MU$ 

r e" s e r '■■■' £ e s aux messages 

t^moin clavier 

noLMeau v trade 

re'serve'es a U5R 



3 
ft 

E 

6 
7 

10 
20 
30 
40 
50 
60 

PR 
^0 
SO 
t-4 
90 
100 

TH 
TS( 
: V 
110 
120 
130 
= VT 
K0 
150 
160 
TC = 
170 
TP( 
180 
EN( 
190 

7 ■ 

= 

200 

210 

220 

230 

240 

250 

260 

270 

LSE 



* ' 


FF 


T ' 


FE 


R ' 


FD 


A ' 


FC 


C ' 


FB 


E ' 


FA 


* ' 


F9 



**********+**#*************************♦* 

T » C N D U I T E DE N U I T << 

R (C) 1983 > TRACE et Olivier Thi volet 

A Configuration : modele 1 ou 3 

C 16? 32 ou 48k 

E cassette ou dissuette 

********************************** ****** 

CLEAR 2000 : GOTO 1250:REMED 

' EC 

' BOUCLE PR1NCIPALE 

6=RND( INT(VB*1.5> ) : IF RND(2)=1 THEN B=-B:REM4D 

IF TP(5)+B<=448 OR TP (5 ) +B+23>=51 1 THEN B=-B:REM4C 

FOR NN=1 TO 5 : PRINT 3TP ( NN ) -1 i CHR$ < 30 ) 5 : TP(NN)=TP(NN 

INT 3TP(NN) ?PA*(NN) 5 : S=USR ( 1023 ) : REM9C 

PRINT 3AC;" "; : PRINT 3TC7CA$; : AC=TC:REM9D 

FOR 1=1 TO 50-VB*10 : NEXT I : FOR 1=1 TO 100-VT : NEXT 




)+B : 



I :REM 



IF 
Y* 

EN 

VB) 

T = V 
IF 
PR 
IF 

-20 
IF 
PR 
IF 

TC+ 
IF 

NN) 
TM 

A*) 
IF 

NF 

THE 

IF 

S = 



i-"0 



CO 

C$ 



EM= 
= IN 

160 

7 

T-l 

PE 
INT 

PE 
:RE 

VT 
INT 

PE 
VB: 

NN 
= TP 
(JJ 
?4S 
= TF 
( J J 
N 2 

TP 
U3R 

2** 
MAU 
R I 

06 
PLU 
SUB 
= "D 



THEN 1 
KEY* : I 

ELSE IF 
"; : PR I 
: Er"=0 
EK( 14240 

3EAUNT 
EK( 14400 
MB2 
>VM(VB) 

3EA( INT 
EK( 14400 
REM37 
=5 THEN 
(NN)+B : 
)=TMUJ) 
)+RIGHT* 
+ 1 : IF 
)=NF< JJ 
7D5REMC 
(5)>=AC 
( 1035) 



10:REM24 

F Y$= "" THEN 160 ELSE IF VAL(Y$)<1 OR VAL(Y$)>5 

ABS(VB-VAL(Y$) KM THEN GOSUB 240 ELSE PRINT a 
NT 3EA< INKVT/7) ) ? EA* ( INT ( VT/7 ) ) ; : VB=VAL(Y$) 

: PRINT aTS(VB) ?SPt(VB) ; : GOTO 140:REM0B 
)=2 THEN EM=i:REM68 
(VT/7) ) 7EA$( INT(VT/7) ) 5 :REMA9 
)=8 THEN VT=VT+5 ELSE IF PEEK ( 14400 ) =16 THEN VT 

THEN VT=VM<VB) ELSE IF VT<0 THEN VT=0:REM7F 

(VT/7) ) 7 FA$ CI NT (VT/7) ) ; :REM8A 

)=32 THEN TC=TC-VB ELSE IF PEEK ( 14400 ) =64 THEN 

180 ELSE NN=NN+1 : PRINT 3TP (NN )- 1 7 CHR*< 30 ) ; : 

PRINT 8TP<NN) ?PA$«NN) ! :REM1G 
+VB*10 : A* = STR*(TM(JJ) ) : TM$ ( J J )=STR ING$ ( 10-L 
(A$7LEN(Af )-l) : PRINT 3660 7 TM$ ( J J ) ; : REM30 
TF=10 THEN TF=0 : PRINT SEF (NF ( J J ) )', EF$(NF( J J ) ) 
-1 : PRINT aEF(NFUJ) ) ?FF»(NF(JJ n ! : IF NF(JJ) 

OR TP(5)+23<=AC+11 THEN 35Q:REM63 
NEXT NN : GOTO 4D:RENA3 



VAISE VITESSE !!!! 1A 

=1 TO 40 : S=USR(1D28) : NEXT : RETURN : REM53 

S D ESSENCE !!!! FB 

370 : IF BMUJ) = 1 THEN 690 ELSE IF JJ=1 THEN C$="UN" E 
EUX":REMBO 
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320 1 = 256 i NEXT I : GOSUB 1040 : NF(JJ)=14 : GOSUB iOQQ : GOTO 4 

0:REMC6 

330 ' B5 

340 ' BOUH ! ! ! ! AB 

350 NN=6 : NEXT NN : BM(JJ)=1 : FOR 1=1 TO 30 : PRINT CHR$!23); 

CHR$(2S); : 3=USR(1035) : NEXT : FOR 1=1 TO 50 : X=RND(5)-1 : PR 

INT 3AC+5-X*64+(RNB( (X+1)*10)-(X+1)*5) ? CHR*(RND( ( 6-X >* 10 > +128 ) 5 : 

REM39 

280 A*=STRING*(28.32)+"B ONUS ESSE N C E... JOUEUR <"+C*+ 

"> ... PRESSER <ENTER> POUR CONT INUER " + STR ING$ ( 28 ? 32 ) : REM5C 

290 B*=STRING*l28>32)+'B ONUS ESSENCE... JOUEUR 

... PRESSER POUR CONTINUER "+STR ING* ( 28 i 32 ) : REM08 

300 FOR 1=1 TO LEN(A*)-28 8 IF I/20INTU/2) THEN PRINT S674?MID 

*(A*?Ii28)l ELSE PRINT 3674 ?MID* ( B* i I > 28 ) ; : REM2F 

310 GOSUB 630 : IF CL=1 THEN GOTO 320 ELSE GOSUB 460 : NEXT I : 

GOTO 300:REMF7 

360 3=USR( 1028+1/10) : FOR J=l TO 1/2 : NEXT J;I : GOSUB 370 : N 

F(JJ)=NF(JJ )-l : GOTO 690:REMED 

370 PRINT 8EF(NF(JJ) )>EF*<NF(JJ))S : PRINT SEA ( INT ( VT/7 ) ) ? EA* < IN 

T(VT/7))5 : PRINT a)TS(VB);" "5 : RETURN:REM1A 

380 ' 83 

390 ' PRESENTATION 79 

400 A*=STRING*(28;32)+"C N D U I T E D E N U I T ... PAR 
OLIVIER THIVOLET ... (C) NOV. 1982 ... PRESSER <EMTER> POUR LES I 
NSTRUCTIONS ... <CLEAR> POUR VOIR LES SCORES ... <1> OU <2> POUR 

LE NOMBRE UL J OULURS "+STR ING* ( 28 > 32 ) : REF10C 
410 B*»STRING$(28j32>+"C N D U 1 T E BE N U I T ... PAR 
OLIVIER THIVOLET ... (C) NOV. 1982 ... PRESSER POUR LES I 

NSTRUCTIONS ... POUR VOIR LES SCORES ... OU POUR 

LE NONBRE DE JOUEURS"+STR ING* ( 28 >32 ) :REM31 
420 FOR 1=1 TO LENiA*)-28 : IF I /2<>INT ( 1/2 ) THEN PRINT 3674;MI0 
*<A*>I?28); ELSE PRINT 3674 > MID* ( B* ? I ? 28 > ; : REMB7 

430 GOSUB 630 : IF CL=1 THEN 470 ELSE GOSUB 640 ! IF CL=1 THEN 5 
50 ELSE GOSUB 650 : IF CL=1 THEN 680 ELSE NEXT I ! GOTO 42Q:REME 
B 

kkO END:REMC7 

^50 FOR J=l TO 3 : NEXT J : RETURN :REMA5 
460 FOR J=l TO 30 ' NEXT : RETURN IREHBS 

470 1=256 : NEXT I : A$=STR ING* ( 28? 32 )+" I NSTRUCTIONS 
, .. U1ILISER <LES FLECHES> POUR MODIFIER LA VITESSE OU LA DIRECT 
ION ... UTIL1SER <LES TOUCHES 1 A 5> POUR CHANGER DE VITESSE ... 

":REM21 
480 C*=RIGHT*(A*?28)+"UTILISER <Q> POUR DEBRAYER ... PRESSER <CL 
EAR> POUR VOIR LES SCORES ... <i> OU <2> POUR LE NOMBRE DE JOUEU 
RS"+STRING* (28 i 32; :REM43 
490 B*=STRING*<28»32)+'I NSTRUCTIONS... UTILISER 

POUR MODIFIER LA VITESSE OU LA DIRECTION ... UTILISER 
POUR CHANGER DE VITESSE ... ":REM83 
500 D*=RIGHT*(B*>28)+"UTILISER POUR DEBRAYER ... PRESSER 

POUR VOIR LES SCORES ... POUR LE NOMBRE DE JOUEU 

RS " + STRING$ ( 28 > 32 ) : REMD4 

510 FOR 1=1 10 LEN(A*)-28 : IF I/2<>INT(I/2) THEN PRINT 3674»MID 
*(A*7l 7 28); ELSE PRINT 3674 ?HID*(B*> I ?28) ? SREM5B 

520 GOSUB 640 : IF CL=1 THEN 550 ELSE GOSUB 650 ! IF CL=1 THEN 6 
80 ELSE GOSUB 450 : NEXT I:REM45 

530 FOR 1 = 1 TO LEN(C*)-28 : IF" I/20INKI/2) THEN PRINT 3674?MIB 
• <C«»li2S)S ELSE PRINT 3674?MJ.D$(D*?I 7 28) ; :REM42 

540 GOSUB 640 : IF CL=1 THEN 550 ELSE GOSUB 650 : IF CL=1 THEN 6 
80 ELSE GOSUB 450 : NEXT I : GOTO 510:REMD4 

550 1=256 : NEXT I : A$=STP ING* ( 28? 32)+"L ES 4 GRANDS 
, .. #1 = "+MT*( 1) + '- PAR " + MJ*(1) + " ... #2="+MT*(2>+" PAR " + MJ*(2) + 

36 - TRACE N° 6 - Juillet 1983 




PAR " + MJ*(3) + " 



#4="+MT*(4>+" PAR "+MJ*<4 



.» + " 
56 
PAR 
EN< 



IF CL=1 
PRINT a 
IF CL=1 



.. #3="+MT*<3)+ 
":REM9D 

:e$---SFRING$<28j32) + "L ES 4 GRANDS... 
"+STRING*(LEN(MJ$( 1) ) ;32)+" ... PAR "+ST 

MJ*(2) ) 732)+" ... PAR "+STRING*(LEN(MJ*(3 

PAR " + STRING$(LEIM<MJ*(4))?32>+"":REMCD 
570 C*=RIGHT*(A*>28)+" ... PRESSER <ENTER> POUR LES INSTR 
... <1> OU <2> POUR LE NOMBRE DE JOUEURS"+STRING* « 28 ? 32 ) 
580 D*=RIGHT$(B*i28)+" ... PRESSER POUR LES INSTR 

OU POUR LE NOMBRE DE JOUEURS "+STR I NG* ( 28 ? 32 ) 
590 FOR 1=1 TO LEN(A*)-28 : IF I/2<>INT(I/2) THEN PRINT 3 
*(A* ? I ? 28)5 ELSE PRINT 3674 ? MID* ( B$ i I i 28 ) 3 : REMOC 
6DD GOSUB 630 : IF CL=1 THEN 470 ELSE GOSUB 650 : 
SO ELSE GOSUB 450 : NEXT l:REMF5 

610 FOR 1=1 TO LEN(C*)-28 : IF I/2<>INTfI/2) THEN 
*(C*jI»28)5 ELSE PRINT 3674 7 MID* ( D* 7 I » 28 ) ; : REMF2 
620 GOSUB 630 : IF CL=1 THEN 470 ELSE GOSUB 650 : 
80 ELSE GOSUB 450 : NEXT I : GOTO 59Q:REM7C 
630 IF PEEK (14400)=! THEN CL«i '• GOSUB 1040 

RETURN :REMDA 
640 IF PEEK ( 144Q0)=2 THEN CL=1 : GOSUB 1040 
RETURN:REMCF 

IF Y$<>" AND (VAL(Y*)=1 OR VAL(Y*)=2) 
RETURN ELSE CL=0 : RETURN :REMB2 
' 6A 

' GESTION DES JOUEURS 

1=256 : NEXT I : GOSUB 1070 
ON NJ GOTO 7007720:REM2A 

J J = 1 : IF NF(JJ)=0 THEN GOSUB 950 : GOTO 810 
A$=STRING*(28732)+"J0UEUR <UN> ... PRESSER 
MARRER"+STRING*!28?32) : GOTO 770:REM66 
720 IF NF(2)=0 AND NF(1)=0 THEN GOSUB 950 
JJ)=0 THEN GOSUB 950:REM68 
730 IF JJ = 1 THEN J J =2 ELSE JJ=1:REM2D 

740 IF NF(JJ)=0 THEN IF JJ=1 THEN JJ = 2 ELSE JJ=l:REM4C 
750 ON JJ GOTO 710 ; 760 : REMED 

760 A$=STRING*(28j32)+"J0UEUR <DEUX> ... PRESSER <ENTER> 
MARRER "+STR I NG* (28732) : REM06 



RING*(L 
) ) 7 32)+ 

UCTIONS 

:REMFB 

UCTIONS 

:REM3E 

6747MID 

THEN 6 

674'MID 

THEN 6 



RETURN 
RETURN 



650 Y*=INKEY* 

: GOSUB 1040 

660 

670 

68 
690 
700 
710 



ELSE CL=0 : 

ELSE CL=0 : 

THEN CL=1 



60 

NJ=VAL(Y*) : GOTO 99Q:REM2B 



REM08 
<ENTER> 



POUR DE 
GOTO 810 ELSE IF NF 



70 GOSUB 1000 : B*=STR ING$ ( 28 7 32 ) +"JOUEUR 
DEMARRER ,: + STR ING$ ( 28 7 32 ) s REM 16 



PR 



POUR 
ESSER 




FOR 1=1 TO LEN(A$)-28 : IF I /2<>INT ( I /2 ) THEN 

REM4D 
80 ELSE 



: ELSE PRINT 3674 7 MID* ! B$ ? I 7 28 ) 
THEN GOSUB 460 : NEXT I : GOTO 



POUR 
780 FOR P=l TO 
PRINT a674.MID$[A*iI j28) 
790 GOSUB 630 : IF CLOl 

1=256 : NEXT I:REM91 
800 GOTO 40:REMEC 

810 A*=STRING*(28732)+"T E R M I N E ... PRESSER 
C0MMENCER"+STRING*(28732) : B*=STR ING* ( 28 ? 32 ) +"T 

PRESSER POUR RECQMMENCER "+STRI NG* ( 28 ? 32 ) 

820 FOR 1=1 TO LEN<A*)-28 : IF I/2<>INT(I/2) THEN 
*(A*»I ? 28); ELSE PRINT a&74iMIDt(B*jI»28) ; :REM25 
830 GOSUB 630 : IF CLOl THEN GOSUB 460 : NEXT I 

1=256 : NEXT HREM6E 
840 FOR JJ = 1 TO NJ : FOR NU = 1 TO 4 : If TM ( J J ) >VAL ( MT* ( NU 

860:REM66 
850 NEXT NU : NEXT JJ : GOTO 40Q:REMD1 
860 FOR DE=3 TO NU STEP -1 : MT* ( DE+1 ) =MT$ ( DE ) 



<ENTER> 

E R M I 

:REMCO 

PRINT 



POUR RE 
N E . . . 



Si 



6747MID 

820 ELSE 

) ) THEN 



MJ*(DE+1 



E) : NEXT DE : MT* ( NU ) =TM* ( J J ) : MJ*(NU) = " 

GOTO 850:REM6F 
370 GOSUB 1080 : IF J J = 1 THEN C*="UN" ELSE 
380 A* = STRING*(2£.7 32) + "G RAND S C R 

. . . PRESSER <ENTER> POUR ENTRER VOIRE NOM 



GOSUB 



"0 



C*='DEUX":REM6 
E . . . JOUEUR < 
... 28 CARACTE 



)=MJ*(D 
NU = 5 : 



•+C*+"> 
RES MAX 
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"+STR1N 
B*=STRI 
ES5ER 
T RING* (. 
FOR 1=1 
7 I 7 28) ; 
GO SUB 6 
56 : NE 
GOSUB 6 
Y$=INKE 
>0 THEN 
920 EL 
MJ$(NU 
GOSUB 1 
IF JJ=1 
A*=STRI 
"> ... 
IN€$(28 



I HUM 
890 
. PR 

ii"+B 

900 

$(A* 

910 

920 

930 
NU) ) 

GO ro 

$: : 

9 AM 

950 
960 
+ C$ + 
= STR 
. PRESSER 
970 FOR 1=1 
$(A$7l>28) 5 
980 GOSUB 6 
1=256 : NE 
990 J J =2 : 

M( 1)=0 : TM 
1000 TC=472 
(2)=279 : T 
1010 FOR 1= 
1020 FOR 1= 
: PRINT 3T 
1030 PRINT 
NT a660?TN$ 
1040 FOR 1= 
: RETURNJRE 

10 50 E2 
10 60 ' MUSI 
1070 GOSUB 

( I ) : M=USR 
1080 GOSUB 
: POKE AM + 2 

POKE AM+17 
1090:REM63 
1090 E9=VAR 

THEN E8=E8 
1100 IF PEE 
KE 1430870 
1110 POKE 1 



G*(28?32) :R 

NG*(28?32)+ 

POUR 

28 7 32.) :REMD 

TO LEN(A*) 

ELSE PRINT 
30 : IF CL< 
XT I : PR IN 
30 : IF CL= 
Y$ : IF Y*= 

PRINT Y$; 
SE IF ASC(Y 
)=MJ$(NU)+Y 
040 : GOTO 

THEN C$="U 

NG$(2£ j 32) + 

PRESSER <EN 

?32)+"P L U 

POUR 

TO LEN(A$) 

ELSE PRINT 
30 : IF CL< 
XT I : RETU 
NF(1)=14 : 
$(1)="00000 

: AC=TC : 
P(3)=342 : 
2 TO 7 : PR 
1 TO 5 : PR 
S( 1) ?SP*( 1) 
aEA(0)?FA*( 
UJ)I = RET 
TO 27 : P 
M3E 



EM25 

"GRAND S C 

ENTRER VOTRE NOM 
1 
-28 : IF I/20IMT 

a674?MID$(B$- I i2 
>1 THEN GOSUB 460 
T 36747""; :REMA7 
1 THEN RETURN: REM 
"" THEN 920 ELSE 
: MJ*(NU)=LEFT$(M 
*)<32 OR ASC(V$)> 
$: IFLEN(MJ$(NU) )= 
400:REMA0 
N" ELSE C$="DEUX" 
'PLUS D ' E 

TER> POUR RECOMME 

S D ESSE 

RECOMMENCER"+STR 
-28 : IF I/20INT 

a674»MID*(B$»Ii2 
>1 THEN GOSUB 460 
RN:REM06 

NF(2)=14 : TM(1)= 
0000" : TM$(2)=TM 
TF=0 : VB=1 : Vf= 
TP(4)=404 : TP(5) 
INT ai*647CHR$(30 
INT 8TP(I) ?PA$(I) 
; :REMS7 

0) ; : PRINT 3EF(N 
URN=REM63 
RINT 3 1 +674?" "i 



R E . . . JOUEUR 
... 28 CARACTERES MAXIMU 

(1/2) THEN PRINT a674?MID 
8) 5 :REMD5 
: NEXT I : GOTO 900 ELSE 

81 

IF ASC(Y$)=8 AND LEN(MJ$( 

J$(NU) 7LEN(MJ$(NU) )-l) : 

127 THEN 920 ELSE PRTNT Y 

28THEN940ELSE920:REM97 

:REMAC 

S S E N C E ... JOUEUR <" 
NCER"+STRING*<28»32) : B* 
N C E . . . JOUEUR 
INGt(28»32) :REM61 
(1/2) THEN PRINT 36747MID 
8) ; :REM8F 
: NEXT I : GOTO 970 ELSE 

: TM(2)=0 : BM(1)=0 : B 

$(1) : GOTO 690:REMBC 

: EM=0 : TP(1)=217 : TP 

=466:REM57 

); : NEXT ISREM7C 

; : NEXT : PRINT 3TC7CA$; 



F(JJ) ) ;FF*(NF(JJ ) > ? 



PRI 



S=USR(1028+I) 



NEXT I 



QUES 

1120 : FOR 1=1 TO 18 : POKE 
(0) : TOR J=l TO 30 : NEXT J 
1120 : FOR K=l TO 2 : FOR 1= 
>L2U) : M = USR(0) : NEXT I »K 
N2(I) : POKE AM+2»L2< I >-4 ■ 



AM+liNKI) : POKE AM + 2?L1 

7 I : GOTO 1090:REMF8 

1 TO 6 : POKE AM+1?N2( 1) 

: FOR 1=6 TO 1 STEP -1 : 
M=USR(0) : NEXT I : GOTO 




AM=VAR 

SUB 114 
POKE 1 
AH=PEE 

ETURN E 
1 7E 
' DESS 
CLS : 
STRING 



PTR(SD$) : E3=PEEK(E9+l)+256*PEEK(E9+2) : IF E8>32767 

-65536:REMDE 

K(16396)=201 THEN 1110 ELSE CMD "T" : ULFUSR0=E8 : PO 

: RETURN:REMC1 

6526»PEEK(E9+1) : POKE 16527 7 PEEK ( E9 + 2 > : RETURM:REM/ 

PTR(MU$) : IF PEEK ( 16396 ) =201 I HEN 1130 ELSE CMD "T" 
D : DEFUSRD=AM : POKE 143U&>0 : RETURN:REM95 
65267PEEK (AM+U : POKE 16527 i PEEK (AM+2 ): REM10 
K(AM+1 )+256*PEEK(AM+2) : IF HM>32767 THEN AM = AM-65536 
LSE RETURN:REM/4 



1120 
: GO 
1130 
1140 
: R 
1150 
1160 
1170 

; "ME 

191) 

MCB 

1180 PRIN'I a/U2?CHR$( 191) ? - ' 5 CHR$ ( 191 ) ; " U60" ;CHR$( 152) I STRING* 



ss 



iAGE 



IN DU JEU 74 

PR INI a5?6 7SIRiNG*(4; 176) 5 GUMP ['EUR " ? STR ING$ ( 4 7 1 7 b ) ?" 
f (3? 176 > 5 " TEMPS" 5 S 1 KING* (3? 176) 5 " " ;STRING$t 11 7 176) 
5b(KlNG$( 11? 176); " " fCHR* ( 191 ) ? " 0080 "?CHR$( 
<JHK$l 191 ) ; SI RING*'. 9?4"B) ; CHR$( 191 ) ; " " ; CHR$ ( 19 1 ) ; : RE 



38 - TRACE N" 6 - Juillet 1983 



( 4? i ji ) ; chk$ ( 164 > ; - lDij- ; " • ;<jhR*i 191 ) ; " " ;s IR1NG$ ( n ? 131 ) 
" ^SIRING* (30? 131) 5 '■ 5GHR*U91) ?"Q40"i CHR$(138) !CHR$( 144) ; " 
RING*! 2? 143) 5 " '■ , CHK$( 160) »GHR$(133) 5 " 120 " ; CHHS ( 191 ) ; :REM36 



"FULL " !SIRING$(3? 176) 5 : PR 
14U)?" " ?CHR$(140) 5CHR 
";STRING$(3?176) 5" 



1190 PK1NI" ";SIRING$(3? 1/6) 

832 » GHH*< 1V1 ) 5 ' 020" 5CHR$( 130 ) ;CHR$ 

? ; " itu • ;chr*( 19D ; • - ;chr*( 191 ) ; 

R*l 1V1 ) ; :RF_M9F 

1200 PR1N1 3896/CHRf (191)5 '" 000 160 "5 CHR*(1?1) 5 " 

191):" "5CHR*(152) ?CHR*(. 131) ; " " 5 CHR$ ( 13 1 ) ; CHR$ ( 164) 

191) ! :PRINT396G?STRING$(6?131) ? "KM/H" ? SIR ING$ (6 ? 131);" 

G$« 11? 131) 5 iREflFF 

1210 PRINT 3813? "B01TE" ; : PRINT 38 

4 R"5 : PRINT 3512?STRING$(64? 131 ) ; 

: PH1NT 30? "C N D U 1 T E D E 
R FHlVOLET" ? :REM31 
1220 PLTURN:REHA6 
1230 * 2E 

1240 ' INITIALISATION 

1250 !1U*-"" '• FOR 1 = 1 TO 27 : READ V : MU$ = MU« + CHR$ ( Y ) 
AM=VARPTR(MU$) :REMAF 

1260 DATA 17jl21j45il4/255i33rl;l>457l22?237»97767fl6»254»2 

5r67jl67 254 7 61?32 7 243 7 21;32 7 239 7 20i:REri6A 

1270 DIM NK18) ?L1(18) : FOR 1 = 1 10 is : READ N1(I)?L1(I) : 

:REMCE 

1280 DATA 30?3Qi35i10i30;10i30»25735i25i30;10i30710i35j10i3 

30 7 25 ? 35 ? 25 7 20 78 7 20 7 8 7 20 7 7 7 20 7 7 7 20 ? 6 7 20 7 6 ; 20 7 5 : REMA8 

1290 DIM N2(6)?L2<6) : FOR 1=1 TO 6 : READ N2(I)iL2(l) 



"5 ST 

iNf a 

$(129 

•■ ;ch 

GHR$( 
CHR$( 
STRIN 



7} "1 3 5"; : PRINT 3100 

: PRINT 364 jSTR1NG*<64? 

N U 1 T (C) 198^ - 



ME 



NE 




M4E 
1300 
1310 
1320 



20; 130 7 20 7 95 7 15 j 100 7 15 7 95 7 15 7 90 7 15 = REM IF 



DATA 150? 

SD$= "01234567890 1234567890 123456" :REM8A 

GOSUB 1090 : FOR E7=E8 TO E8+26 : READ E6 : POKE E7»E6 
XT:REM71 

1330 DATA 205? 127? ID? 77i68i62? 1? 105 ; 21 1 ? 255 7 45 7 32 7 253 7 60; 10 
7 255 1 45 7 32 7 253 7 13 7 16 ? 238 7 175 ; 21 1?255 7 20 i:REM38 
1340 FOR 1 = 1 TO 5 : READ X?Y : TS(I)=X : SP$ ( I ) =CHR$ ( Y > : N 

FOR 1=1 TO 5 : READ X : VM(1)=X : NEX1:REM63 
1350 DATA 941? 131?941? 176?943? 1317943? 1 76 ? 945 ? 131 ; 45 7 60 ?75 ? 
05REM77 

1360 DIM EA( 14)?FA$( 14) iEA»(14) : FOR 1 = 1 TU 14 : READ X»Y» 
A(1)=X : FA$( I )=CHR*(Y) : EA$( 1 ) =CHR$ ( Z ) : NEXT : EA(0)=EA( 
FA$<0)=FA$( 1) : EA$ ( ) =EA*( 1 ) : REM5A 

1370 DATA 775? 159? 143 ? 774? 160 ? 32 ? 7 74 ? 136 ? 32 1 7 74 ? 130 ? 32 7 710 ? 
3 1 7 7 1 1 ? 147 7 13 1 ? 7 1 1 ? 1 63 ? 131 ? 7 1 2 ? 14 7 ? 13 1 ? 7 12 7 163 7 13 1 7 7 13 7 147 7 
77? 129? 32 7 777 j 132 7 32 7 77 7 7 144 ? 32 ? 776 7 1/5 7 143:REMDE 
1380 DIM EF( 14 ) ?FF$( 14) ?EF$( 14) : FOR 1 = 1 10 14 : READ X7Y7 
F(1)=X : FF "$( I )=CHR$( Y) : EF '$ ( I ) =CHR$ ( Z ) : NEXT : EF(0)=EF( 
FF $<0)=FF$( 1) : EF $ ( )=EF? ( 1 ) : REMOA 

1390 DA I A 916? 136 ? 32 ? 91 7 ? 153 ? 152 7 853 7 160 7 32 7 854 j 136? 32 7 855 7 
76 7 855? 184? 176 7 856 7 180 » 176 i 856 7 184? 176? 85 7? 180? 176? 85 7? 184? 
b8? 132/ 32 ? 859 ? 144? 32? 923? 166? 164? 924? 132 ? 32 : RE.M70 
1400 PA$( 1)=(JHR*( 144) + " " "+'CHR$(160) : PA$ < 2 ) =CHR$ ( 136 
1NG$(11?32)+CHR$< 132) :. PA$ ( 3 1 = GHR$ ( 133 ) +S TR 1NG$ ( 13?32)+CHR 
) : PA$(4)=CHR$( 149 ) +STRING$ ( 1 7 ? 32 ) + CHK$ ( 170) : PA$(5)=CHR$ 
+SFR1NG$(21 ?32)+CHR$( IBS) :REMOB 

1410 CA$=CHR$(176)+CHR$( 188 ) +ST R 1NG3 ( 7 ? 191 ) + CHR$ ( 188 ) +CHR$ ( 
REM 17 

1420 FOR 1=1 TO 4 : M I $( 1 ) ="000000000" : MJ$ ( 1 )= "OLIVIER" : 
:REMC9 
1430 GOSUB 1170 : GO 1 400:REMB0 



: NE 
5?211 
EXT : 
90? 10 

Z : E 

1) : 

163?1 
131»7 



Z 
1) 



E 



180?1 
176?8 

)+STR 
$( 138 

( 188) 

176) : 
NEXT 



.Olivier Thivolet 
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essai logiciel 









NeNDOS/80 



APPflJttT, IMC. 
VERSION 2.9 
HOKL I 



12545:3 



NEVDOS 88 ctHli> 



NEWDOS 80 

version 2 : 
quoi de plus 



(ii) 



LES FONCTIONS SUPPLEMENTAIRES DE NEWD0S80 



Apres avoir passe en revue les fcnctions existant 
dans les deux systemes voyons maintenant ce que 
NEWD0S80 off re en plus. 

APPEND 



Cette fonction permet d'ajouter le contenu d'un fi- 
chier a la fin d'un autre. Le contenu du fichier 
ajoute reste inchange . 

BLINK 



Permet de faire cllgnoter le curseur, ou d'arreter 
ce clignotement . 

BOOT 

Entrer BOOT equivaut a une pression sur le bouton 
RESET si difficile a atteindre ! 

BREAK 

Desactive ou reastive la touche BREAK. 

CHAIN 



Permet de faire executer des fichiers de commandes, 
c'est-a-dire des sequences d'actions predefinies, 
sans intervention de l'operateur. Cette fonction 
peut faire gagner du temps, et permet sur tout de 
mettre l'ordinateur dans les mains d'un utilisateur 
peu experiment^, qui peut se contenter de connai-re 
aeulotnont l'application sur laquelle 11 travallle. 
celle-ci etant automatiquement lancee a la mise sous 
tension . La commande DO fonctionne de maniere stric- 
tement ldentique et exlste sans doute pour des rai- 
sons de compatibilite avec d'autres SED. Les comman- 
des PAUSE, STMT (affichage d'un message) et CHN01I 
(fin de l'enchalnement) sont des complements de CHAIN. 

CLEAR 



Cette fonction supprime toutes les deviations des 
drivers entree /sortie (voir fonction ROUTE). Elle 
abandonne toutes les routines d 'interruptions en 
cours telles que 1' affichage con;inu de l'heure ou 
le spooler (voir le programme ASP0OL) . Elle remet 



MEMORY SIZE a la valeur maximale de la machine ou a 
celle prevue a la generation du systeme . Elle remet 
a zero la memoire entiere ou entre les bornes fixees 
par des parametres optionnels . 

CLS 

Efface l'ecran. Sous TRSDOS cette commande n'existe 
qu'en BASIC. 

CREATE 

Pour allouer par avance un fichier ayant des carac- 
teri3tiques predefinies. 

FORMAT 



Sous NEWD0S80, FORMAT est une fonction plutot^qu'un 
programme separe . Cette fonction offre bien sur tou- 
ts ine gamme d' options pour tenir corapte des possl- 
bilites accrues de NEWD0S80. 

HIMEM 



Permet d' entrer ou de lire sous DOS une valeur de 
MEMORY SIZE (decinale ou hexa) . 

■JKT. 

L'appui simultane sur J,K et L provoque la recople 
de l'ecran sur 1 ' imprimante. 

LC et LCDVR 



Ces commandes permettent l'appel, 1 'activation et la 
deoacfcivation du "driver" minusoules, independamment 
de la possibilite de charger ce driver automatique- 
ment a la mise sous tension. 

MDBCRT, MDCOPY, MDRET et DFG 



II s'agit de commandes d'un SED redult qui peut etre 
active par la pression simultanee des touches D,F et 
G, et ceci sous BA3IC ou meme en coura d' execution 
d'un programme BASIC ou Assembleur, a condition que 
celui-ci ne desactive pas les interruptions et le 
"driver" clavier. De cette maniere on peut par exem- 
ple, en cas de doute, verifier 1' existence d'un fi- 
chier par DIR puis reprendre le programme en cours, 
la oil il a ete interrompu . 
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PDRTVK 

Cette commande est utilisee pcur adapter ou modifier 
votre systeme en fonctlon des unites de disquettes 
utilisees. C'est elle qui pernet de definir pour cha- 
que drive, le type d'unite, le nombre de faces, la 
densite, le nombre de pistes, le temps de deplacement 
de3 tetes de lecture, etc. 



R provoque la repetition du dernier ordre SED emis . 
Utile, par exemple pour formatter toute une botte de 
disquettes vierges . 

ROUTE 



II exiate des SED qui ont une fonction ROUTE plus 
elaboree, mais deja la possibilite de devier ou de 
dedoubler les donnees entrees ou sorties par le cla- 
vier, l'ecran ou l'imprimante { RS232 pour le model e 
3) vers un autre peripherique ou vers une routine en 
memoire represente un avantage non negligeable. 

3Y3TEM 



Voila avec PDPIVE la fonction qui permet de creer 
des versions de NEWDOS80 adaptses a tou3 les besoin3. 
n est possible d'utiliser NEWDOS80 sans jamais mo- 
difier aucun des parametres SYSTEM. Les options par 
defaut sont celles qui fournissent un systeme stan- 
dard le plus proche du TRSDOS. Mais par SYSTEM on 
peut par exemple indiquer comment seront traltes les 
mots de passe, creer des disquettes systeme qui ne 
permettent que 1' execution de programmes, prendre 
des options vis-a-vis des modifications non standards 
(minuscules ou horloge rapide), desactiver les tou- 
ches Break et /ou Clear, indiquer quel sera le drive 
accede par un DIR implicite, decider du premier dri- 
ve qui sera accede pour la recherche d'un fichier et 
eur lequel un nouveau fichier sera cree, proteger de 
maniere permanente une zone memoire, etc. 



LE BASIC DE NEWDOS80 VERSION 2 



Le BASIC de NEWDOS80 marque un progres sensible par 
rapport a oelui de TRSDOS. Lea programmes ecrits en 
BASIC sous TRSDOS restent pourtant totalement compa- 
tibles . 

La difference est visible au charge ment . Ici il n'y 
a pas de dialogue pour demander le nombre de fichlers 
et la taille memoire. NEWD0S80 suppose 3 fichiers et 
protege la memoire si cela a ete demande a l'adapta- 
tion du systeme par la fonotions SYSTEM ou par HIMEM. 

II est cependant possible de modifier ces valeurs en 
les speciflant a la suite de la commande BASIC. 
L' ordre BASIC * restaure un programme apres en RESET 
ou un retour au SED. 

Les fonctions d 1 edition du BASIC ont ete elargies. 
il est possible de faire defiler dans les deux sens 
le t.pxte BASIC par pages entiores en plus de l'avan- 
cement par ligne. La repetition des touches s'avere 
tres pratique pour faire derouler le texte d'un pro- 
gramme a l'ecran. 

Les commandes 31 et DU permettent le deplaceraent ou 
la recopie de lignes ou groupes de llgnes. II est 
possible de relancer des programmes en retenant tou- 
tes les varlahle.s et tons les fichlers ouverts . La 
commande MERGE peut travailler sur des fichiers non 
ASCII et peut etre invoque dynamiquement dans un 
programme . 

II est possible de renumeroter des programmes (crdre 
RENUM) et d'etablir a l'aide de 1' instruction REF 



d.rre>ents types de llstes de references croisees. 
LES INSTRUCTIONS CMD 



Les instructions CMD du TRSDOS restent valide3, mais 
un certain nombre d ' instructions supplementaires ont 
ete ajoutees. 

CMD "C" permet la compression d'un programme par sup- 
pression des espaces . 

CMD "D" ou une presslon simultanee sur 1,2 et 3 per- 
met d'appeler DEBUG. 

CUD "J" permet de convertir une date de la forme 
MM/JJ/AA en AA/JJJ, oil JJJ represente le nombre de 
jours ecoules depuis le premier Janvier de l'annee 
ccnsideree . 

CMD "0" permet d'appeler une routine de tri pour 
classer des zones ou des enregistrements . 

II est par ailleurs possible d'appeler depuis BASIC 
la plupart des fonctions systeme voire des program- 
mee ou routines asaembleur tant que ceux-ci n'lnler- 
ferent pas avec la partie de la memoire utilisee par 
le BASIC. 

CMD "DIR 1" 

CMD "COPY FILE/EXT: TO :2" 

CMD "DRIVER" 

CMD "DO INIT" 

L'instruction CMD "F" admet de nombreux parametres 
qui permettent par exemple la sortie hors d'un bou- 
cle FOR NEXT sans aller au bout du comptage, la re- 
tention ou l'effacement control! de variables, l'e- 
change de valeurs entre variables (SWAP), la suppres- 
sion dynamique de lignes BASIC, et le pas-a-pas pro- 
gramme . 

L'instruction RENEW permet de retrouver un program- 
me apres sa suppression accidentelle . 

LE TRAITEMENT DES FICHIERS DISQUETTES EN BASIC 



TRSDOS connalt deux types d'acces, l'acces sequen- 
tial et l'acces direct. Cette dernlere methode d'ac- 
ces utilise les Instructions FIELD assez laborieuses 
a manier. Dans ce cas, il appartier.t au programmeur 
de gerer la longueur des enregistrements pourvu que 
celle-ci soit inferieure a 256 caracteres. 



NEWD0S80 permet par contre de traiter des enregis- 
trements de longueur variable pouvant aller jusqu'a 
"1096 caracteres, er. InLrodulsant deux nouveaux modes 
d'acces qui ont l'un, deux sous-modes et 1' autre, 
trois. Ces modes permettent des acces direct et se- 
quentiel faciles a des enregistrements de taille 
fixe et/ou variable. Ces nouvelles possibilites ou- 
vrent la porte a des applications de gestion plus 
sophistiquees 3ans perte d'e3pace disque et sans 
acrobatie de programmatlon . Ceci est probablement 
la partie la plua complexe de NEWD0S80 et meriterait 
un developpement beaucoup plus large que ne le per- 
met cette description generale du NEWDOS80. 

PROGRAMMER EN ASSEMBLEUR 



Coirme le manuel TRSDOS, le manuel NSWDOSSO fournit 
un certain nombre d'adre3ses de routines utllisables 
par le programmateur en assembleur . Qi fait, Ik oil 
le manuel TRSDOS fournit 6 adresses. celui de NEWDOS 
80 en communique 38. Cela permet d'affiner la manie- 
re d'acceder aux disques et donne d'autres possibi- 
lites concernant les sorties ecran, imprimante, le 
traitement des interruptions, de l'horloge, etc. 
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PROGRAMMES COMPLEMENTAIRES 



La dlsquette NEWDCS contient un certain nombre de 
programmes de service tres utiles . 

SUPERZAP 



Ce programme permct d ' af richer, de modifier, de met- 
tre a zero ou de recopier des sectsurs de dlsquette 
qui peuvent etre adresses de manlere absolue ou par 
rapport a des pistes ou des flchiers. SUPERZAP permet 
notamment la modification de programmes et la recu- 
peration de parties indemnes d'un disque deteriore . 
Cet utilltaire etait deja connu de NEWDOS 2.1, mais 
cette fois, il est entierement ecrit en langage ma- 
chine . 

DISASSEM 



II s'agit d'un desassembleur qui peut traiter des 
programmes places en memoire ou sur disque. Le re- 
sultat pourra aller vers l'ecran vers l'imprimante 
ou sur disque. Un fichier disassemble sur disque 
peut eventuellemcnt ctrc modifie et reassemble . A 
manier tout de meme avec precaution, des surprises 
sont possibles ! 

LMOFFSET 

Permet la copie de programmes systeme de cassette a 
dlsquette ou vice versa. Mais ce programme a une uti- 
lite portlculicre pour rcndrc cxecutablee sous SED 
certains programmes ecrits pour fonctionner en Level 
2, et qui doivent etre executes dans une partie de 
la memoire utillsee par le SED. Ces programmes sont 
decales a des adresse3 superieures, et completes 
d'une sequence qui apres leur ehargement les recopie 
a l'adresse d' execution et les lance automatlquement . 
Dans le cas extreme on peut meme se mettre en Level 
2 apres le ehargement depuis une clsquette, puis 
lancer le programme par l'ordre STSTEM. 

DIRCHEK 



Ce programme tests et liste le catalogue des fichiers 
d'une dlsquette et peut ef facer les Informations re- 
latives a des fichiers supprimes qui subsistent apres 
1' execution d'un ordre KILL qui nc fait que position- 
r.er un marqueur de suppression. 



EDTASM 



II s'agit lei de la version standard Tandy de l'e- 
diteur-assembleur, raodiflee et adaptee aux disquet- 
tes . Elle est presente, sur la dlsquette s1 l'ache- 
teur peut legalement justifier qu'il possede deja la 
version d'origine. Hormis la possibility d'ecrire et 
de lire le3 programmes source et objet sur disquet- 
tes, ce programme s'utilise de manlere 3trictement 
identique a la version cassette . 

CHAINBLD 



Ce programme BASIC permet de creer des fichiers de 
commande pour la fonction CHAIN. Si vous possedez un 
programme de traitement de textes, il est encore plus 
commode de creer ces fichiers a l'aide de celui-cl , 
stant donne leur format tres simple . 

ASPOOL 



Vous voulez un ordinateur travaillant en multipro- 
grammation ? Vous voulez regler le sort des envahis- 
seurs extra-terrestres pendant que votre journal 
comptable s'imprime ? ASPOOL vous off re cette possi- 
bilite. Dans un premier temps 1' impression est derou- 
tee vers un fichier dlsquette. Ce",te operation est 



infinlment plus raplde que 1' impression directe oil 
1 'ordinateur passe le plus clalr de sor, temps a at- 
tendre que l'imprimante soit prete a accepter un ca- 
racfcere de plus. 

Ensuite vous lancez 1' impression a partlr de cette 
dlsquette puis vous chargez Invaders. L'imprimante 
continue a marcher, et les envahisseurs sont un tout 
petit peu ralentis dans leur descente, etant ainsi 
plus faciles a abattre ! C'est de la haute strategie ! 

Mais evldemment vous pouvez aussi faire des choses 
plus serieuses pendant cette seance d' impression. 



LE MANUEL NEWD0S80 



Ce manuel n'a rien de pedagogique, c'e3t-a-dire qu'il 
ne facllite pas la tache de ceux qui abordent pour la 
premiere foi3 un SED. D'un autre cote cela donne un 
document concis bien structure, exempt d 'information 
Inutile et dans lequel il est plus facile de se re- 
trouver . Malheureusement , ce document n'existe - a 
l'heure actuelle - qu'en langue anglaise . 

PROBLEMES DE COMPATIBILITE 



Nous avons deja parle des problemes de compatibilite 
existants pour certains programmes en langage machi- 
ne . Apparat, la 30ciete qui a cree NEWDOS, a publie 
et continue de publier des patches (corrections) pour 
les programmes les plus connus . De cette manlere il 
est possible d'utiliser Scripslt, Visicalc, le com- 
pilateur BASIC de Microsoft, Profile et bien d'autres 
en tirant partie de tous les avantages de NEWD0S80 
tels que le Minidos. De meme certains programmes, ou 
certalnes utilisations dans des cas limltes, mettent 
en lumiere des anomalies ou omissions de ce systeme, 
qui donnent egalement lieu a des corrections. 

Les proprietaires enregistres de NEWD0S80 recolvent 
ces CDrrectlons qui sont publiees 3ans perlodicite 
fixe. 



ALORS, QUE DEMANDER DE PLUS ? 



II n'y aura sans doute Jamais de systeme parfait. 
II existe de nombreux autres SED et certains posse- 
dent dans des doraaines precis, des avantages qu'on 
souhaiterait ajouter a NEWD0S80. 

La reconnaissance automatique de la densite ou du 
nombre de races fait partie des absences regretteeo . 
II existe neanmoins un programme additionnel qui le 
permet (DDSDde The Alternate Source). On devrait 
auss: disposer d'une gestion plus parfaite de3 for- 
mats d'imprlmante et des communications par 1' inter- 
face RS232 qui ne sont disponibles dans NEWDOS80 que 
pour la version TRS irodele 3- 

Pour 1 'utilisation avec un genei-dteur- de caracteres 
avec accentuation, tel que celui vendj par Tandy en 
Europe, on souhaiterait un "driver" permettant d'en- 
trer et d'afficher les codes infer ieurs a 32 et les 
caracteres graphiques. 

Peut-etre que certains de ces souhalts seront com- 
bles dans une version 3 ? En tout cas la version 2 
est deja un 3ystccnc excellent et on peut penser qu' 
Apparat. fidele a 3a politique passee, offrira aux 
proprietaires de NEWDOS80 une nouvelle version pour 
le prix d'une 3imple mise a Jour de la version pre- 
cedente . 



.Wolfgang Lauter 
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utilitaire, 




Pour votre 
modelel, 

un utilitaire 
qui vaut de Tor 

(2 e partie) 



Voici la suite tant attendue (c'est votre courrier 
qui nous dicte ces mots...) de la liste de cet utili- 
taire qui vaut de L'or et vous allez enfin pouvoir 
"toucher les interets" de la patience dont vous sve^ 
fait preuve ! 







01000 
01010 


! DPI' 










' L. n. L. i_ n V 1 c 






4 37D 


213640 


01020 


CLAV 


LD 


HL;4036H 


! NEMOIRE DE TRAVAIL 


4380 


010138 


01030 




LD 


BC;3801H 


! DEBUT MATRICC CLAVIER 


4383 


1600 


01040 




LD 


D.00 




4335 


OA 


01050 


SCRUT 


LD 


A? (BO 




43S6 


5F 


01060 




LD 


E»A 




4387 


AE 


01070 




X0R 


(HL) 


; ELIMINE EVENTUELLEMENT 


4388 


A3 


01080 




AND 


E 


; LES ANCIENNES TOUCHES 


438? 


73 


01090 




LD 


(HL) >E 




438 A 


2047 


01 100 




JR 


N2 tTOUCHE 


; SI NOUVELLE TOUCHE 


438C 


14 


oiuo 




IMC 


D 


V \' M >- 


438D 


2C 


01120 




INC 


L 


438E 


CB01 


01130 




RLC 


C 


\ 


4390 


CB79 


01140 




BIT 


7;C 


; 8 BOUCLES ? £ ""V * 


4392 


28F1 


01150 




JR 


Z?SCRUT 


! SINON ENCORE Q^- — ^ 


4394 


2E18 


01160 




LD 


L, 18H 


; HL=4018H 


4396 


3A3F38 


01170 




ID 


A j (3R3FH) 




4399 


B7 


01180 




OR 


A 




439A 


200F 


01190 




JR 


NZjCLAVO 


! SI UNE TOUCHE EST PRESSEE 


439C 


3A4038 


01200 




LD 


A 7 (3840H) 


' 


439F 


FE10 


01210 




CP 


10H 




43A1 


2003 


01220 




JR 


NZ7$+5 


; SI NON <FLECHE BASSE> 


43A3 


0A 


01230 




LD 


A> (BO 


i BC=3880H 


43A4 


EE01 


01240 




XOR 


01 




43A6 


B7 


01250 




OR 


A 




43A7 


3E06 


01260 




LD 


A 7 06 ,1'// 


! * TEMPORISATION 


43A9 


280C 


01270 




JR 


Z>RAZ V N 


, 5 SI AUCUNE TOUCHE PRESSEE 
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43AB 


56 


01280 


CLAVO 


LD 


D7 (HL) 


43AC 


2C 


01290 




INC 


L 


43AD 


5E 


01300 




LD 


E? (HL) 


43AE 


7A 


01310 




LD 


A>D 


43AF 


B3 


01320 




OR 


E 


43B0 


IB 


01330 




DEC 


DE 


43B1 


73 


01340 




LD 


(HL) >E 


43B2 


2B 


01350 




DEC 


HL 


43B3 


72 


01360 




LD 


(HL) >D 


43B4 


3E0O 


01370 




LD 


A- 00 


43B6 


CO 


01380 




RET 


NZ 


43B7 


77 


01390 


RAZ 


LD 


(HL) >A 


43B8 


3E40 


01400 




LD 


A?40H 


43BA 


2C 


01410 




INC 


L 


43BB 


77 


01420 




LD 


(HL) i A 


43BC 


2E35 


01430 




LD 


L i 35H 


43BE 


1E07 


01440 




LD 


E;07 


43 r -0 


AF 


01450 




XOP 


A 


^3C1 


2C 


01460 


EFFACE 


INC 


L 


43C2 


77 


01470 




LD 


(HL) ift 


43C3 


ID 


01480 




DEC 


E 


43C4 


2QFB 


01490 




JR 


NZ /EFFACE 


43C6 


3A4038 


01500 




LD 


A; (3840H) 


43C9 


E610 


01510 




AND 


10H 


43CB 


CS 


01520 




RET 


Z 


43CC 


OA 


01530 




LD 


A? (BC) 


43CD 


B7 


01540 




OR 


A 


43 CE 


CS 


01550 




RET 


Z 


43CF 


CBE6 


01560 




SET 


4; (HL) 


43D1 


AF 


01570 




XOR 


A 


43D2 


C9 


01580 




RET 




43D3 


5F 


01590 


TOUCHE 


LD 


Ei A 


43D4 


C5 


01600 




PUSH 


BC 


43D5 


010003 


01610 




LD 


BC/0300H 


43D8 


CD6000 


01620 




CALL 


0060H 


*3DB 


CI 


01630 




POP 


BC 


43DC 


OA 


01640 




LD 


A; (BC) 


43DD 


A3 


01650 




AND 


E 


«r3DE 


C8 


01660 




RET 


Z 


43DF 


7A 


01670 




LD 


A7D 


43E0 


07 


01680 




RLCA 




43E1 


07 


01690 




RLCA 




43E2 


07 


01700 




RLCA 




43E3 


57 


01710 




LD 


D?A 


43E4 


0E01 


01720 




LD 


C/Ol 


43E6 


79 


01730 


CODAGE 


LD 


AiC 


43E7 


A3 


01740 




AND 


E 


43E8 


2005 


01750 




JR 


NZ;BIP 


43EA 


14 


01760 




INC 


D 


43EB 


CB01 


01770 




RLC 


C 


43ED 


1SF7 


01780 
01790 




JR 


CODAGE 






01800 


; BIP 


DE SIGNAL 






01810 








43EF 


0E10 


01820 


BIP 


LD 


C7 10H 


43F1 


1E20 


01830 




LD 


E720H 


43F3 


3A3D40 


01840 


BIPO 


LD 


A7<403DH> 


43F6 


3C 


01850 




INC 


A -T" 


43F7 


D3FF 


01860 




OUT 


(0FFH)7A - 


43F9 


A3 


01870 




LD 


B>E ' 1 


43FA 


10FE 


01880 




DJNZ 


$ 1 



; HL=4019H 




HL=4018H 



; SI DEL A! INGUmSANT 

; * CADENCE DE REPETITION 

1 HL=4019H 

i HL=4035H 



Q 



i SI NON FLECIIE BASSE 
i BC=3880H 



i SI NON SHIFT 
; HL=403CH 






DELAI D'AFTENTE 
POUR LE . . . 

... TRAITEMENT 

DES REBONDS. 

SI C'EST UN REBOND 

« LIGNE CLAVIER (0 A 7) 

) 

) MULTIPLICATION PAR 8 

) 



; SI FIN CODAGE INTERMED. 



* DUREE DU BIP 

* FREQUENCE SONORE 
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Af 



' A 



Q 



43FC 


3C v — ^ 


01890 




INC 


A 




C r~ 


43FD 


D3FF 


01900 




OUT 


(OFFH) j A 






43FF 


43 


01910 




LD 


BiE 




^ \ 


4400 


10FE 


01920 




DJNZ 


$ 




c *z) 


4402 


OD 


01930 




DEC 


C 




gL-^ 


4 403 


20EE 


01940 
01950 




JR 

r- r\ AirnT 


NZtBIPO 










1960 


; C L A V I L k 










01970 












4405 


211344 


01980 




LD 


HL.-AZERTY 






4408 


7E 


01990 


LOOP 


LD 


A> (HL) 






4409 


23 


02000 




INC 


HL 






440A 


BA 


02010 




CP 


D 






440B 


280F 


02020 




JR 


Z?PERMUT 


! SI 


CODE TROUVE 


440D 


FE2B 


02030 




CP 


2BH 






440F 


20F7 


02040 




JR 


NZ7LOOP 


i SI 


PAS FIN DE TABLE 


4411 


180A 


02050 




JR 


PERMUT+1 






4413 


01 


02060 


AZERTY 


DEFB 


01 






4414 


11 


02070 




DEFB 


11H v\ 






4415 


01 


02080 




DEFB 


01 -^ 




4416 


17 


02090 




DEFB 


17H T J^C 




r^v 


4417 


1A 


02100 




DEFB 


1AH - O^: 




kr^J 


4418 


17 


02110 




DEFB 


17H v^: 




v» -^ 


4419 


OD 


02120 




DEFB 


ODH 






441A 


2B 


02130 




DEFB 


2BH C 






441B 


OD 


02140 




DEFB 


ODH V 






441C 


5 6 


02150 
02160 
02170 


PERMUT 
i SUITE 


LD 

nil nn t i 


D> (HL) 




















02180 












441D 


211A40 


02190 




LD 


HL;401AH 






4420 


3AS03S 


02200 




LD 


Ai (38Q0H ) 






4423 


47 


02210 




LI) 


B>A 


i TEMO 


4424 


3A4038 


02220 




LD 


A; (3840H) 






4427 


CB67 


02230 




BIT 


4>A 






4429 


7A 


02240 




LD 


fl»D 


; CODE 


442A 


2804 


02250 




JR 


Z7NOCTRL 


; si 


NON <FLECHE BASSE> 


442C 


CB40 


02260 




BIT 


O.B 






442E 


2027 


02270 




JR 


NZ7CTRL 


5 SI 


SHIFT 


4430 


FE31 


02280 


NOCTRL 


CP 


31H 






4432 


3013 


02290 




JR 


NCjCMDE 


- SI 


CODE COMMANDE 


4434 


FE20 


02300 




CP 


20H 






4436 


78 


02310 




LD 


A?B 






4437 


2807 


02320 




JR 


Z7ZERO 


; SI 


<D> 


4439 


3002 


02330 




JR 


NC?FCLAV1 


5 SI 


NON LETTRE 


443B 


AE 


02340 




XOR 


(HL) 






443C 


47 


02350 




LD 


BiA 






443D 


C30F04 


02360 


FCLAV1 


JP 


040FH 






4440 


B7 


02370 


ZERO 


OR 


A 




NON SHIFT V V *'^V 


4441 


28FA 


02380 




JR 


ZiFCLAVl 


? SI 


4443 


AE 


02390 




XOR 


(HL) 






4444 


77 


02400 




LD 


(HL) 7 A 




f\ 


4445 


AF 


02410 


RETOUR 


XOR 


A 




\^ 


4446 


C9 


02420 




RET 






^- S 


4447 


CB4E 


02430 


CMDE 


BIT 


I7 (HL) 






4449 


28F2 


02440 




JR 


Z7FCLAVI 


; si 


PAS MODE EDITEUR 


444B 


D632 


02450 




SUB 


32H 






444D 


2825 


02460 




JR 


Z7BREAH v \ 


; si 


<BREAK> 


444F 


C602 


D2470 




ADD 


A 7 02 -T" 






4451 


217944 


02480 




LD 


hl7tcmde r j£ 






4454 


C34604 


02490 


FCLAV2 


JP 


0446H - <^ 






44-57 


FE20 


02500 


CTRL 


CP 


20H ^^ 
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I'' 



sS'"'s 



Q 



4459 


DA4C04 


02510 




JP 


C7044CH 


! SI CODE LETTRE 


445C 


FE2A 


02520 




CP 


2AH 




445E 


38E5 


02530 




JR 


C>RETOUR 


; SI CODE NON CONTROLE 


4460 


282C 


02540 




JR 


Z.PRINT 


i SI <CTRL *> 


4462 


CB4E 


02550 




BIT 


1 j (HL) 




4464 


C43343 


02560 




CALL 


NZ jCUROFF 


5 SI MODE EDITEUR 


4467 


2E0O 


02570 




LD 


L>00 


; HL=4000H 


4469 


FE2D 


02580 




CP 


2DH 




446B 


2827 


02590 




JR 


Z;PRINT1 


; SI <CTRL => 


446D 


D62B 


02600 




SUB 


2BH 


^ 


446F 


218144 


02610 




LD 


HLjTCTRL 




4472 


18E0 


02620 




JR 


FCLAV2 


** £ -^ 


4474 


El 


02630 


BREAK 


POP 


HL 


F ^^.^^^^^ 


4475 


El 


02640 




POP 


HL 


*-*' '* 


4476 


77 


02650 




LD 


(HL) »A 




4477 


3C 


02660 




INC 


A 


C .X 


4478 


C9 


02670 
02680 




RET 




<S 






02690 


; TABLES 


CODES DE COMMANDE E 












02700 










4479 


0D 


02710 


TCMDE 


DEFB 


ODH 




447A 


IF 


02720 




DEFB 


1FH 




447B 


00 


02730 


CBLINK 


DEFB 


00 


; STOCKAGE COMPTEUR 


447C 


IB 


02740 




DEFB 


1BH 




447D 


1ft 


U2750 




ULh B 


1AH 




447E 


18 


02/60 




DEFB 


18H 




447F 


19 


02770 




DEFB 


19H 




4480 


20 


02780 




DEFB 


20H 




4481 


7C 


02790 


TCTRL 


DEFB 


7CH 




4482 


7B 


02800 




DEFB 


7BH 




4483 


00 


02810 


INKEY 


DEFB 


00 


; STOCKAGE TOUCHE 


44S4 


7D 


02820 




DEFB 


7DH 




4485 


7E 


02830 




DEFB 


7EH vA 




4486 


7F 


02840 




DEFB 


7FH -T" 




4487 


5C 


02850 




DEFB 


5CH 7 jT 


^ o ,,,; '- 


4488 


00 


02860 




DEFB 


00 - (^^. 


4489 


5B 


02870 




DEFB 


5bh w-z; 




448A 


00 


02880 




DEFB 


00 


, k 6^^ 


44SB 


5D 


02890 




DEFB 


SDH C 


• 7x v ^^' 


44SC 


5E 


02900 




DEFB 


5EH V 




44SD 


5F 


02910 
02920 




DEFB 


5FH 








02930 










02940 


7 i\ t_ v \j r 








448E 


2A2040 


02950 


PRINT 


LD 


HL. (4020H) 


ADRESSE CURSEUR 


4491 


CDA104 


02960 




CALL 


04A1H 




4494 


DD212540 


02970 


PRINT1 


LD 


IX-4025H 




4498 


11003C 


02980 




LD 


DE -3C00H 


DEBUT MEMOIRE ECRAN 


449B 


DF 


02990 


PRINT2 


RST 


24 




449C 


C8 


03000 




RET 


Z 


SI FIN D.' IMPRESSION 


449D 


0640 


03010 




LD 


B>40H 


64 CARACTERES/LIGNE 


449F 


1A 


03020 


PRINT3 


LD 


A 1 ( DE ) 




44A0 


FE80 


03030 




CP 


80H 


) + POUR LES IMPRIMANTE 


44A2 


3802 


03040 




JR 


C>5 + 4 


) + QUI N' ONT PAS LES 


44A4 


3E2E 


03050 




LD 


A?2EH 


) + CARACTERES GRAPHIQU 


44A6 


CDB405 


03060 




CALL 


05B4H 


VERS IMPRIMANTE 


44A9 


13 


03070 




INC 


DE 




44AA 


10F3 


03080 




DJNZ 


PRINT3 




44AC 


3E0D 


03090 




LD 


A;ODH 


CODE "CARRIAGE RETURN" 


4 4AE 


CDB405 


03100 




CALL 


05B4H 


VERS IMPRIMANTE 


44B1 


3E0A 


03110 




LD 


A-OAH y\{/, 
05B4H J. *V 


) + CODE "LINE FEED" 


44B3 


CDB405 


03120 




CALL 


) + SI NECESSAIRE 
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44B6 


1SE3 


03130 
03140 


■ rt r-f T 1 1 r- 


JR 

n r\ I r- r 


PRINT2 








03 150 


i DRIVER u C-LRfin ruun LuninuLt uu 




44B8 


F5 


03160 
03170 


ECRAN 


PUSH 


AF 


v • f 1 


44B9 


218344 


03180 




LD 


HL> INKEY 


> f ry 


44BC 


117F3S 


03190 




LD 


DE>387FH 


f "> /c 3 


44BF 


1A 


03200 




LD 


A> (DE) 


\^> K= ^ 


A 4 CO 


B7 


03210 




OR 


A 


^^m^^^ 


44C1 


2301 


03220 




JR 


z>$+3 ; 


SI PAS DE TOUCHE ENFONCEE 


44C3 


77 


03230 




LD 


(HL) i A 




44C4 


CB7E 


03240 




BIT 


7> (HL) 




44C6 


2S0C 


03250 




JR 


Z7DECRAN-I ! 


SI MODE DEFILEMENT 


44CS 


47 


03260 




LD 


B;A 




44C9 


3A2040 


03270 




LD 


Ai (4020H) 




44CC 


E63F 


03280 




AND 


3FH 




44CE 


2004 


03290 




JR 


NZ7DECRAN-I J 


SI PAS DEBUT DE LIGNE 


44UU 


1A 


03300 


SECRAN 


LD 


A; (DE) 




44D1 


AS 


03310 




XOR 


B 




44D2 


28FC 


03320 




JR 


z?secran ; 


SI ANCIENNE TOUCHE 


44D4 


Fl 


03330 




POP 


AF 




44D5 


C35804 


03340 
03350 


DECRAN 

• nn t lir 


JP 

n r\ > r- r 


0458H ? 


DRIVER ECRAN EN MEM 






03360 


" DRIVEk li likhin ruun lc.3 ninupkuuta 






033/U 










44D8 


2A2040 


03380 


MINUSC 


LD 


HL; (4020H) 




44DB 


DA9A04 


03390 




JP 


C>049AH ! 


SI CODE 


44DE 


3A2240 


03400 




LD 


A 7 (4022H) 




44E1 


B7 


03410 




OR 


A 




44E2 


2801 


03420 




JR 


Z>$+3 5 


SI EXTINCTION CURSEUR 


44E4 


77 


03430 




LD 


(HL);A 




44E5 


7? 


03440 




LD 


A;C 




44E6 


FE20 


03450 




CP 


20H 




44E8 


DA06D5 


03460 




JP 


C70506H i 


SI CODE COMMANDE 


44EB 


C3A604 


03470 
03480 




JP 


04A6H S 


RETOUR AU DRIVER EN ROM 






03490 










03500 










44EE 


00 


03510 




DEFB 


00 


POUR PRECEDER BUFFER BAS 


44EF 


21E942 


03520 


INIT 


LD 


HL7ENTRY 


v \>"/ 


44F2 


221640 


03530 




LD 


(4016H) 7HL 


\ %. 


44F5 


21B844 


03540 




LD 


HL7ECRAN 


X ^v • 


44F8 


221E40 


03550 




LD 


(401EH)7HL 


^-4 v 


44FB 


2A2040 


03560 




LD 


HL7 (4020H) 


) TEST POUR LA ^*»^Z7 


A4FF 


3600 


03570 




LD 


(HL) 7OO 


) MODIFICATICN 


4500 


7E 


03580 




LD 


A? (HL) 


) MINUSCULES 


4501 


B7 


03590 




OR 


A 


) ? 


4502 


2006 


03600 




JR 


NZ7EXIT 


) SI PAS DE IMNUSCULES 


4504 


21D844 


03610 




LD 


HL7MINUSC 




4507 


22D644 


03620 




LD 


(DECRAN+1) ;HL 








03630 
03640 


; POUR 


BASIC 


















03650 










450A 


21EF44 


03660 


EXIT 


LD 


HL7 INIT 


NOUVELLE ADRESSE 


450D 


22A440 


03670 




LD 


(40A4H) 7HL 


POUR LE BUFFER BASIC 


4510 


CD4A1B 


03680 




CALL 


1B4AH 


NEW 


4513 


C3191A 


03690 
03700 




JP 


1A19H v,S 


RETOUR AU BASIC 


44EF 




D3710 




END 


INIT T r^**^ 


l »> *- 


00000 TOTAL 


ERRORS 






** L^^~ _ ■-■* 


QT 



Roger Buvat 



TR ACE N° 6 - Juillet 1983 - 47 



logiciel. 



Un traitement de texte 
ties beau, pas cher 

(ii) 



Dans le numero 5 de TRACE, nous vous presentlons un 
programme inedit de "mini" traltenent de texte entie- 
rement realise en BASIC. 

Les utilisateurs du BASIC niveau 2 qui ont tente d'u- 
tiliser la coramande M (MODIFIER ur.e ligne) ont ete 
surpris de recevoir en retour un "L3 ERROR IN 160", 
consequence dlrecte de 1 'utilisation incongrue de 
1' instruction : MID$(C , 1 )=S( NO) . 



En effet, Un MID$i ) situe a ga 
n'est admls que sous BASIC dlsq 
modifier la ligne 160 comme lnd 
cl-dessous, et tout rentrera da 
tretemps, J'ai apporte quelques 
gramme . . . 

- Les lignes 140 et 170 ont ete 
effectif l'effacenent des blocs 
la frappe des fleches gauche et 

- La sous-routine 220-227 inaer 
tere frappe (variable C2) direc 
de la ligne (variable C). On ev 



ucr.e du signe egal 
ue. Sorry ! II faut 
ique dans le listing 
ns l'ordre. Mais en- 
ameliorations au pro- 



mod ifiee3 pour rend re 
de 8 caracteres par 
drolte en SHIFT. 

e maintenant le carac- 
teraent dans le texte 
ite ainsi les inter- 



ruptions provoquees par les reorganisations periodi- 
ques de la zone CLEAR. Les variables V, IA et RA de 
cette sous-routine, sont initialisers a la ligne 15. 

- La modification de la ligne 50 reporte le 'BOP' de 

fin de ligne ,)uotc a la fin de la ligre, et 1 ' on ne 
risqus plus de sauter un caractere pendant son execu- 
tion. 

- La modification des lignes 280-290 faciltte grande- 
ment la lecture du texte, qui se deroule maintenant 
caractere par caractere apres un CL3. De meme, la mo- 
dification des lignes 350-360 facilite la lecture du 
texte imprime, lorsqu'on a choisi l'option : NUMER0- 
TER LES LIGNES ( le nunero de ligne est maintenant hors 
TAB). 

- Les lignes 560 et 7^0 ont ete legerement modi flees 
pour permettre 1' insertion de nouvelles lignes dans 
un texte appele de la disquette ou de la cassette. 

- Enfin, la ligne 980 autorise la modification du nom- 
bre de caracteres par ligne apres l'appel de la com- 
mande C (CONTiNUEK TKITE). 



20 : GOTO 50:REM9 

N=N+8 : GOTO 50:R 

IF V>IA THEN V = V 



15 V = : IA=32767 : RA=65536 : REM49 

50 IF N=JL G0SUB 630»REM5C 

140 IF A=24 AND N>7 PRINT S2; : N = N-8 : GOSUB 



170 IF A = 25 AND N<JL-8 PRINT S3? ! GOSUB 220 

EM0A 

220 V=PEEK ( VARPTR ( C ) + 1 ) +PEEK ( VARPTR ( C ) +2 ) *256 

-RA=REM86 

223 IF A=24 OR A=25 THEN 227:REM61 

225 POKE V+N-l? A5C(C2) I RETURN:REM4A 

227 FOR 1=0 TO 7 : POKE V+N+ I i ASC ( C9 ) : NEXT : RETURN:REM6C 

230 GOSUB 1140 : CLS : FOR K=N0 TO M : IF K 1=1 PRINT STR$(K);C5; 

■-REMD5 

2?0 FOR L=l TO LEN (S(K)) 1 PRINT MID$<SCK ) iLi 1 ) 5 : NEXT L :PRIN 

TrREMEB 

350 FOR 1 = 1 TO M : IF Kl=l LPRINT USING "###:"; I ;: REM68 

360 LPRINT TAB(MA);S(I) : NEXT I:REM43 

460 PRINT S(N0) : PRINT S ( NO) ; CHR$ ( 29) ; CHR$ ( 14 ) ; : M1=M : C=S(N0 

)+STRING$(LEN(CS)-LEN(S(N0))i32) : G0T0 40:REMCA 

560 11=1-1 : CLOSE : JP = ME ! PRINT : GOTO 250:REMFF 

740 JP-WE : PRINT : GOTO 250:REMCF 

980 IF C1="C" GOSUB 1140 ! GOSUB 1100 : PRINT CHR$(14); : GOTO 5 

0:REME6 
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II est vivement recommande aux utilisateurs du BASIC 
disque de completer le programme par les modifications 



ci-apres, la Vitesse de frappe etant nettement amelio- 
ree par l'utilisation directe de : MID$( C,N)=C2. 



15 ' Fl 

110 PRINT C2! : N=N+1 : MID$(C7N)=C2 t GOTO 50:REMCF 

120 IF A=8 AND N>0 : PRINT C2; : MID$(C?N)=C9 : N=N-1 : GOTO 50: 

REM82 

130 IF A = 9 AND N<JL : PRINT C9; ! N = N+1 : MID$(C7N)=C9 : GOTO 50 

:REM09 

140 IF A = 24 AND N>7 PRINT S2 ; : N=N-S : MID$ ( C ?N+1 ) =S3 : GOTO 50 

:REM54 

170 IF A=25 AND N<JL-8 PRINT S3; : MI D$ ( C 7 N+l ) =S3 : N=N+8 : GOTO 

50:REMCE 
220 ' 24 




n^c 1 



VOIR 



IF 

227 ' ID 

400 M = M+1 : S(M)=LEFT* (CiN) '• MID* ( C j 1 ) = CS : REM6C 
460 PRINT S(N0) : PRINT S (NO ) ; CHR$ (29 ) ; CHR$ < 14 ) 5 
?1)=S(N0) : GOTO 4Q:REMC2 



M1 = M 



MID$(C 



A titre de curlosite, voici quelques resultats donnes 
par le programne avant et apres incorporation des mo- 
difications ci-dessus. Le test de performance (bench- 
mark) a ete effectue en modifiant la ligne 60 ainsi : 



60 C2=CHR$<65) : A=ASC(C2) 



IF N=JL : A= 13 



Resultats dans les trois versions : 

1) MACHEC/BAS (TRACE n° b) sous BASIC disque 
MEM SIZE = ^yl52, 87 lignes de 60 caracteres. 
Vitesse d'ecriture = 7,5 car/sec. 
Plus de 100 reorganisations (FRE) de i a 3 secon- 

des chacune . 



2) MACHEC/BAS apres la premiere liste de modifications 
sous BASIC niveau 2 (cassette) 

MEM SIZE = 32667, 53 lignes de 60 caracteres. 
Vitesse d'ecriture = 8,2 car/sec. 
Deux reorganisations de 1 seconde. 

3) MACHEC/BAS apres les deux listes de modifications, 
sous BASIC disque. 

MEM SIZE = 65296, 170 lignes de 60 caracteres. 
Vitesse d'ecriture = 11,3 car/sec. 
Une reorganisation de 3 secondes. 



Roger Brousmiche 



Abonnez-vous 



a 



TRACE 



VOIR PAGE 4 
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bricolage. 




Ouvrez votre modele 1 



sur le monde exterieur 

(ii) 




Si vous avez suivi les indications du numero prece- 
dent, vous devriez maintenant avoir en mains Le cir- 
cuit imprlme de 1' interface par-alLele 2*1 bits, "pre- 
mier etage" de notre "bruleur d'EPROM". Aujourd'hul, 
nous vous donnons ie moyen d'equiper ce circuit en 
vous fournissant une photo en decrivant 1' implanta- 
tion et un schema electrique. Sur la photo, on renar- 
que les trois resistances de 2,2 Kohms qui sont pla- 
cees debout et le condensateur de 0, 1 microfarad. Les 
deux circuits integres seront monies de preference 
sur des supports. Le \k pattes est un Y'lLSUS (ou Yl 
LS06° et le 4U pattes un controleur parallele 825-- 
Une serie de "straps" vous permettra de chuisir les 
adresses d'acces les nileux adapters a votre conl'lgura- 
tion et a votre ordinateur : 



Bits d'adresse 
du bus TRS 



V 


6 


5 


1 


i 


2 


1 













/J 


St 


raps 


I 


I 


7 


6 


5 


X 


X 


X 


1 











reserves 


au cho 


Lx 


ignores 


aux comma 
du 82b 1 ? 



Bits d'adresse 
de la carte 8255 



Hi- -*»>!•■*• 



-<■>■ 



x* 

So 
It — 
«_ 
/*•— 

■'9 ,_ 
/»„ 



_J...„ 



1 .__ ^Jtpjatt- 






V 


71 
»''l ■ « 

P*? X 






V 


PA/ 


, * 




si 


PAS 


, *" 




** 


*M 






•i 


"} 


, 7 




I 


fJl 


m g 




> 


PA-4 


, « 




t 


PAo 


, -M 




V* 


Ht 


• ** 




, f 


.".■"• 






'< 


pes 


* 4 * 




tfl 


A* 


• ■** 




*/ 


PCS 


, ^f 




*/ 


Kl 


,>/ 




'» 


K4 


■ J F 


aiss 


'♦ 


Ho 


»■" 




It 


nt 


." 




f 


p*/ 


-^ 




Xi 


M< 


a £f 




X* 


"•J 


m A» 




4' 


PH 


.14 




■it 


PA/ 


. . i* 




A 


P&0 


,*' 



!'■ 



€t . ItUef 



PB*T 

1 



e 



s 




Les adresses devront etres chuistes de facon a ne pas 
perturber les accessoires eventuels dont votre syste- 
rae pourrait etre equipe (horloge rapide, carte gra- 
ph ique, etc...). Nous en reparlerons en aboi-dant 1' as- 
pect logiciel. 

Nous vous donnons enfin le schema du ouivre du ''second 
etage" qui contient le bruleur d'EPROM pour lequel vous 
procederez de la meme facon que pour le precedent (film 
contact positif). Tenez-le pret pour la prochatne fois. 
Bon courage et a bien^Gt ! 



.Jusue Bonifas 
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utilitaire, 



Des ouis pour votre 
programmation 

(V) 



Maintenant que vous savez ce que fait BASPY (voir 
TRACE numero 5), il faut l'ecrire... (du moins pour 
ceux qui n'ont pas la chance d'avoir des disquettes). 
Mai3 peut etre 11 y a-t-11 de3 lecteurs qui ne posse- 
dent pas d'editeur-assembleur ou qui n'ont pas suffi- 
aamraent. de place memoire pour assembler le programme. 
A moins de connaitre un ami possesseur de la disquet- 
te TRACE qui veuille bien vous faire une copie sur 
cassette, il vous reste encore la solution d'-itlliser 
le MINI MONITEUR de Gille3 Vollant decrit dans ce nu- 
mero et d'entrer la ( longue !) liste des codes hexa 
de BASPY. ATTENTION : en utilisation modele 3, rem- 
placez le "JP 6CCH" de la ligne 8050 par un "JP 1A19H". 
Cela etant termine (et en copcrant qu'unc coupurc acc- 
teur ne vienne contrarler vos efforts !), frappez : 



<BREAK> 
SYSTEM 



(pour sortir de MINI-MONITEUH) 



Cette derniere adresse corespond au label INI 
7980 de la llste assembleur). 



1 lgnt- 



Des cet instant, le programme BASPY figure sous sa 
forme BASIC cans la memoire de votre ordinateur. SAU- 
VEZ-LE sur le champ (avant de faire un RUN !) puis, 



apres verification, chargez-le de nouveau (CLOAD)afin 
qu'il s'implante a sa bonne adresse. Maintenant, vous 
pouvez faire RUN ! 

UTILISATION DISQUETTE 



Si vous possedez la disquette TRACE numero 5, uti.isez 
dlrectement BASPY5/BAS. Dans le cas contraire, assem- 
bler, le programme et sauvez-le (BASPY/CMD). Pour ob- 
teni r BASPY /BAS (la seule forme executable), revenir 
au niveau DOS et faire les operations suivantes : 

LOAD BASBY/CMD 

BASIC 

(eventuellement, repondre ENTER ajx deux questions) 

SYSTEM 

;3ie>3" 

SAVE "BASPY/BAS" 
RUN "BASPY/BAS" 

KOTA : sur modele 3, la commande "SYSTEM /3153«" pre- 
sente une anomalle. II est done conseille de la rem- 
plaeer par : 

0EFUSR=3'b3l : PRINT USR(O) 



7S3Q 

7530 BO 

'S ,i 



rsai jb/5 

. 5j3 U1UU 

f53S 8DJ3 

'$J ' ou 



'bJ8 


2S/V 


.'S3A 


U2UU 


'iJC 


LBCVU1 


/sat 


iKIM? 


-■-. 


CU8E/7 


/bnn 


211A79 


7548 


CD8E77 


754B 


CD9C77 


'54E 


FE51 



uuuiu ; 

00020 i BASPY 

00030 ; 

00040 ! to 1983 IKACt 

ouotiO ; 

OU06U 0RC. JUUOO 
00070 ! (WAN I BUhfLK BASIC 

0GU8U UthB 

00090 BASPY t«U 4 
0U1G0 ", 

0U110 5 LICNt 1 > 1 l,<.> I (J J 

00120 : 

0U1J0 DLrW LH,NE2 

00140 L'LrW 1 

UU1S0 DErW JJKUH 

UG160 Df r H II 
U01/0 i 

L'0180 ! L1GNL 2 > 2 PH0GHHN 

001VU ; ML PKiN'OPAL IB1NA1HL* 

UCJ2UCJ ■ 

UU21U LKJNL2 ULF W LluNLJ 

0022U \}<Lt W 2 

UIJ2JU : LNIKLt MON1ILUH 

UU '4U : CLtAK ttKrtN 

UUil&U MONJ CALL 1CVH 

UU26U h I J LD HLrAI 1 IKE 

UU-.'O LI4 CHLL VlUtO 

D0280 COM LI' HLfAlCOM 

00290 Lib CALL VI0E0 

00300 A1CLA CALL Kl 

DU310 UP <j' 



/53U 


2008 


U0J20 




JP, 


N2»Pft6 


733-2 


2A9F 7/ 


UUJ30 


ETO 


i Q 


HLi (K1F+1) 




221640 


00340 




LD 


(4016HJ.HL 


558 


1801 


ou'jso 




JR 


K1NM0N 


55 A 


> E42 


0O360 


PA8 


CI 


' B' 


' 55 C 


2002 


00370 




JR 


NZ;PAB 


755E' 


AF 


00380 


F1NM0N 


X0R 


A 


-5SF 


C9 


UO3°0 




RET 




/bo0 




00400 


PAB 


EQU 


% 


75oO 


2190 5 


00410 


ET6 


LD 


HL>DISPL 


363 


FE44 


00420 




CF 


' D' 


7365 


2817 


00430 




JR 


ZjCOMIN 


7567 


2150 76 


00440 


ET7 


LB 


HLjCOMVER 


>56A 


FE43 


00450 




CP 


' C 


36 C 


2810 


0i.i-.60 




JR 


Z;C0M1N 


756E 


21/076 


01)4 70 


ET8 


LD 


HLiEDIT 


■'5/1 


FE4S 


00480 




CP 


E 


5 1 


2809 


00490 




JR 


2>C0I11N 


3 5 


21CB76 


00500 


ET9 


LD 


HL-SEARCH 


?57S 


FE52 


0O310 




CP 


R 


■ 


2802 


U0520 




JR 


Z»C0M1N 


757C 


20CL> 


UO530 




JR 


NZ»ATCLA 


371 


CD9877 


0O540 


C0MIN 


CALL 


V1D 


>b81 


3E20 


0O55O 




LD 


Ai ' 


'383 


Cim/7 


0O56O 


ET10 


CAI i 


V1D 


'586 


L3 


D0570 




PUSH 


HL 


•58/ 


CDD877 


00580 


El 11 


CALL 


KCHAIN 


38 A 


tl 


00590 




POP 


HL 


'bSt 


FE01 


UU600 




CP 


1 


'38i) 


28 B6 


UU610 




IP 


Z;COM 


'58»-" 


E9 


IJU620 




JP 


(HL) 
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OU630 








7 


62D 


3802 


01430 




JR 


C7PAP01N 






Q0640 


; 


;0MI1ANDE 


DISPLAY 


762F 


3E2E 


01440 


POINT 


LD 


Af '■.' 






00650 








•'631 


21A278 


01450 


PAPOIN 


LD 


HL7BUFF 


7590 


21A278 


00660 


D1SPL 


LD 


HLrBUFF 


7634 


77 


01460 




LD 


(HL) j A 


7593 


CD2D78 


00670 


ET12 


CALL 


HEXBIN 


7635 


CD9877 


01470 


ET33 


CALL 


VID 


7596 


E0539878 


C0680 


ET13 


LD 


(ADRl)iDE 


7638 


3A9873 


01480 


ET34 


LD 


A7 (ADR1) 


'5VA 


ED539C7S 


CD690 


ET14 


LD 


(ADRC) >DE 


763B 


E60F 


01*90 




AND 


15 


'59E 


7E 


00700 




LD 


At (HL) 


763D 


20E0 


01500 




JR 


NZ7SASC 


759F 


11FFFF 


D0710 




LD 


DEtOFFFFH 


763F 


CBAF77 


01510 


ET35 


CALL 


SURV 


/5A2 


FEOD 


C0720 




CP 


ODH 






01520 


i TEST 


SI FIN 


, , 


75 A A 


2805 


L0730 




JR 


Z,CAD2 


7642 


2A9C78 


01530 


FLIG 


LD 


HL7 (ADRC) 


75 A 6 


23 


00740 




INC 


HL 


7645 


EU5B9A78 


01540 


ET36 


LD 


DE7 (ADR2) 


75A7 


CD2078 


C0750 


ET15 


CALL 


HEXBIN 


7 b 4 9 


DF 


D1550 




RST 


2* 


7b A A 


13 


DO 760 




INC 


DE 


764f» 


D24575 


01560 


ET37 


JP 


NC7COM 


75AB 


ED539A78 


00770 


CAD2 


LD 


(ADR2) >DE 


"'64D 


C3B775 


01570 


ET38 


JP 


LSUIT 


75 A F 


ED539A78 


00780 


ET16 


LD 


(ADR2) iDE 






01580 








73b J 


AF 


0079 




XOR 


A 






01590 


; FONC" 


CONVERSION 


/5B4 


329E78 


00800 


ET17 


LD 


(FLAGES) >A 






01600 








75 B 7 
75B9 


3E0D 
CD9877 


00810 
00320 


LSUIT 
ET18 


LD 
CALL 


AtODH 
VID 


7650 
7653 


21A278 
7E 


01610 
01620 


CONVER 


L D 
LD 


HLtBUFF 
A7 (HL) 


75BC 


21A278 


00830 


ET19 


LD 


HL7BUFF 


765't 


FE2B 


01630 




C P 


' +' 


75 BF 


3A9D78 


00840 


ET20 


LD 


A7 (ADRC+1) 


7 656 


2814 


01640 




JR 


Z jDECIM 


75C2 


CD0678 


00850 


ET21 


CALL 


BINHEX 






01650 


; CONV 


HEXA -- 


-> DECIMAL 


75C5 


3A9C78 


00860 


ET22 


LD 


A; (ADRC) 


7658 


CD2078 


0166Q 


ET39 


CALL 


HEXBIN 


75C8 


CD067C 


00870 


CT23 


CALL 


DINIICX 


'65B 


21A278 


0167U 


ET40 


LD 


HL7BUH- 


75 CB 


363A 


00880 




LD 


(HL) >■ :■ 


765E 


CD3D78 


O1680 


ET41 


CALL 


BINDC 


75 CD 


23 


00890 




INC 


HL 


7661 


3601 


01 690 


COMCV 


LD 


(HL) 7 1 


75CE 


3E20 


00900 




LD 


At20H 


7663 


219F73 


01700 


ET42 


LD 


HL7BUFF-3 


75D0 


77 


00910 




LD 


(HL) tA 


7666 


CD8E77 


01710 


ET43 


CALL 


VIDEO 


75D1 


23 


00920 




INC 


HL 


7669 


C34575 


01720 


ET44 


JP 


COM 


75D2 


77 


00930 




LD 


(HL) tA 






01730 


! CONV 


DECIMAL --> HEXA 


75D3 


23 


00940 




INC 


HL 


766C 


23 


□ 17*0 


DECIM 


INC 


HL 


75D4 


3601 


00950 




LD 


(HL) 7 1 


766D 


CD6878 


01750 


ET43 


CALL 


DECBIN 


75D6 


CD8B77 


00960 


ET24 


CALL 


VIDE01 


7670 


7A 


01/60 




LD 


A 7 D 






00970 


; SEQUENCE DE 


BOURRAGE 


7671 


2tA278 


01770 


ET46 


LD 


HL.BUFF 


75139 


3A9C78 


00980 


ET25 


LD 


A- (ADRC) 


7674 


CDD678 


01780 


LT',7 


CALL 


BINHEX 


75DC 


E60F 


00990 




AND 


15 


7677 


7B 


01790 




LD 


A7E 


75DE 


2813 


C1000 




JR 


Z 1 NBOUR 


7678 


CD067S 


01800 


ET48 


CALL 


BINHEX 


75E0 


F5 


C1010 




PUSH 


AF 


767 B 


18E4 


DIB 10 




JR 


COMCV 


75E1 


87 


IM020 




ADD 


A>A 






01820 








75E2 


47 


01030 




LD 


B»A 






01830 


• FONC" 


EDIT 


75E3 


Fl 


C1D40 




POP 


AF 






01840 








75E4 


3D 


G1D50 




DEC 


A 


767D 




01850 


EDIT 


EQU 


$ 


75E5 


CB3F 


C1D60 




SRL 


A 


767 D 


21A278 


01860 




LD 


HL7BUFF 


75E7 


CB3F 


CI 070 




SRL 


A 


7680 


CD2H'-:. 


01870 


ET49 


CALL 


HEXBIN 


75E9 


3C 


01080 




INC 


A 


7683 


ED539C78 


01830 


SULDIT 


LD 


(ADRC) 7DE 


75EA 


80 


01090 




ADD 


AjB 


7687 


l\H>. I 


01890 


ET50 


1 D 


HL.BUFF 


75EB 


47 


01100 




LD 


B>A 


768ft 


7 A 


01 900 




LD 


A7D 


75EC 


3E20 


C1110 




LD 


A.20H 


7648 


CD067h' 


01910 


ET51 


CALL 


BINHEX 


75EE 


CD9877 


01120 


BOUR 


CALL 


VID 


7t>8E 


7E 


01920 




LD 


A7E 


75F1 


10FB 


01130 




DJNZ 


BOUR 


76A.F 


CD0678 


01930 


ET52 


CALL 


BINHEX 


75F3 




01140 


NBOUR 


EQU 


* 


'692 


363m 


O1940 




LD 


(HL) >' :' 


75F3 


2A9C78 


C115D 


SL1G 


LD 


HL> (ADRC) 


7694 


23 


01950 




INC 


HL 


75F6 


7D 


C1160 




LD 


A>L 


7695 


3620 


01960 




LD 


(HL)i' ' 


75F7 


E603 


01170 




AND 


3 


7697 


23 


01970 




INC 


HL 


75F9 


7E 


C1180 




LD 


A7 (HL) 


7698 


1A 


01980 




LD 


A • ( DE ) 


75FA 


23 


01190 




INC 


HL 


7o99 


CD0678 


01990 


ET53 


CALL 


BINHEX 


75FB 


229C7S 


C1200 


ET26 


LD 


(ADRC) 7HL 


769 C 


362D 


02000 




LD 


(HL) 7 ' -' 


75FE 


21A278 


01210 


ET27 


LD 


HLtBUFF 














7601 


2003 


01220 




JR 


NZ7PB 














7603 


3620 


01230 




LD 


(HL) 7 20H 














7605 


23 


01240 




INC 


HL 














7606 


CD0678 


U1250 


PB 


CALL 


BINHEX 














'609 


3601 


01260 




LD 


(HL) ; 1 














760B 


CDSB77 


01270 


ET28 


CALL 


VI DEO 1 














760E 


3A9C78 


01280 


ET29 


LD 


At (ADRC) 














7611 


E60F 


01290 




AND 


15 










yyT^r 




7613 


20DE 


01300 




JR 


NZ.SLIG 










V}\ 


■ V 


7615 


3E20 


01310 




LD 


A720H 










r*J 


•j^^rn 


7617 


CD9877 


01320 


ET30 


CALL 


VID 










V^j 


9^JP 






01330 


i IMPRESSION 


LI ONE ASCII 








/;^- 






?61A 


3E20 


C1340 




LD 


A7 20H 










SM 


76 1C 


CD9877 


C1350 


ET31 


CALL 


VID 






wTTcS 






•^/y 


761F 


2A9878 


01360 


SASC 


LD 


HL? (ADR1 ) 






\\ \lv 


^\ ^s&— 






\s*f 


7622 


7E 


C1370 




LD 


A 7 (HL) 






\\wU 


\\r 








7623 


23 


01380 




INC 


HL 






l V'fn n 


i\ 




. f 




7624 


229878 


C1390 


ET32 


LD 


(ADR1) 7HL 






\vv 








r t=-i , 


7627 


FE20 


01400 




CP 


• ' 






M* 


^£^^* 






*** 


7629 
762B 


3804 
FE80 


01410 
Q1420 




JR 
CP 


C 7 P 1 NT 
30H 






Jr— 











52 - TRACE N° 6 - Juillet 1983 



769E 


23 


02010 




INC 


HL 


77 35 


4F 


02810 




LD 


C.A 


769F 


3601 


02020 




LD 


(HL) . 1 


'736 


23 


02820 




INC 


HL 


76A1 


CD8B77 


02030 


ET54 


CALL 


VIDE01 


7737 


7E 


02830 




LD 


A. (HL) 


76A4 


CDD877 


02040 


ATED 


CALL 


KCHAIN 


7738 


CD8678 


02840 


ET74 


CALL 


HEX 


76A7 


FE01 


02050 




CP 


01 


773B 


Bl 


02850 




OR 


C 


76A9 


CA4575 


02060 


ET55 


JP 


Z.COM 


773C 


12 


02860 




LD 


(DE) .A 


76AC 


F5 


02070 




PUSH 


AF 


77 3D 


13 


02870 




INC 


DE 


76AD 


78 


02080 




LD 


A.B 


773E 


23 


02880 




INC 


HL 


76AE 


FE01 


U2UVU 




CP 


1 


773F 


10EC 


02S90 




DJNZ 


SCB 


76B0 


280A 


02100 




JR 


Z.PATOU 


774 1 


2A9878 


02900 


RECHER 


LD 


HL. (APRD 


76B2 


21A278 


02110 


ET56 


LD 


HL.BUFF 


7744 


ED5B9C7E 


02910 


RECH 


LD 


DE. (ADRC) 


76B5 


CD2078 


02120 


ET57 


CALL 


HEXBIN 


7748 


3A9778 


02920 


ET75 


LD 


A. (LG) 


76BS 


2A9C78 


02130 


ET5S 


LD 


HL.(ADRC) 


774B 


47 


02930 




LD 


B-A 


76BB 


73 


02140 




LD 


(HL) .E 


774 C 


1A 


02940 


SRR 


LD 


A. (DE) 


76BC 


Fl 


02150 


PATOt 


POP 


AF 


774D 


BE 


02950 




CP 


(HL ) 


76BD 


ED5B9C73 


02160 


ET59 


LD 


DE. (ADRC) 


774 E 


280D 


02960 




JR 


Z .EGAL1 


76C1 


FE5B 


02170 




CP 


SBH 


7750 


23 


02970 




INC 


HL 


76C3 


2003 


02180 




JR 


NZ - INCED 


7751 


D5 


02980 




PUSH 


DE 


76C5 


IB 


0219D 




DEC 


DE 


7752 


ED5B9A78 02990 


ET76 


LD 


DE. (APR2) 


76C6 


18BB 


02200 




JR 


SUEDIT 


7756 


DF 


03000 




RST 


24 


76C8 


13 


02210 


INCED 


INC 


DE 


7757 


Dl 


03010 




POP 


DE 


76C9 


18B8 


02220 




JR 


SUEDIT 


7758 


D24575 


03020 


ET77 


JP 


NC. COM 






0223U 
02240 








'75B 


18EF 


03030 




JR 


SRR 






; FONCTION 


RECHERCHE 


775 D 


229378 


03040 


EGAL1 


LD 


(ADRl).HL 






02250 
02260 
02270 








7760 


13 


03050 


EGA 


INC 


DE 


76CB 
76CE 


21A278 
AF 


SEARCH 


LD 
XOR 


HL'BUFF 
A 


7761 
7762 
7763 


23 
1A 
05 


03060 
03070 
03080 




INC 

LD 

DEC 


HL 

A.(DE) 
B 


76CF 


329E78 


02280 


ET1 


LD 


(FLAGES) .A 


7764 


2809 


03090 




JR 


Z. EDATR 


76D2 


CD2078 


02290 


ET60 


CALL 


HEXBIN 


7766 


BE 


03100 




CP 


(HL) 


76D5 


ED539878 


02300 


ET61 


LD 


(ADR1) .DE 


7767 


28F7 


03110 




JR 


Z .EGA 


76D9 


7E 


02310 




LD 


A . > HL ) 


7769 


2A9878 


03120 


CHS 


LD 


HL. (ADR1) 


76DA 


FEOD 


02320 




CP 


ODH 


"'76 C 


23 


C3130 




INC 


HL 


76DC 


CA4575 


02330 


ET62 


JP 


Z> COM 


776D 


18D5 


03140 




JR 


RECH 


76DF 


23 


02340 




INC 


HL 


776F 


21A278 


03150 


EDATR 


LD 


HL.BUFF 


76E0 


CD2078 


02350 


ET63 


CALL 


HEXBIN 


7772 


3A9978 


03160 


ET78 


LD 


A. (ADR1+1) 


76E3 


ED539A78 


02360 


ET64 


LD 


(ADR2) .DE 


7/7 5 


CD0678 


03170 


ET79 


CALL 


BINHEX 


76E7 


7E 


02370 




LD 


A, (HL) 


7778 


3A9878 


03180 


ET80 


LD 


A. (ADR1) 


76E8 


FEOD 


02380 




CP 


ODH 


777B 


CD0678 


03190 


ET81 


CALL 


BINHEX 


76EA 


CA4575 


02390 


ET65 


JP 


Z.COM 


777E 


360D 


03200 




LD 


(HL) 1 ODH 


76ED 


23 


02400 




INC 


HL 


•'80 


23 


03210 




!NC 


HL 


76EE 


7E 


02410 




LD 


A; (HL ) 


7781 


3601 


03220 




LD 


(HL ) 1 1 


76EF 


FE22 


02420 




CP 


1 II 1 


7783 


CD8B77 


03230 


ET82 


CALL 


VIDE01 


76F1 


2018 


02430 




JR 


NZ.PASC 


7786 


CDAF77 


03240 


ET83 


CALL 


SURV 


76F3 


23 


02440 




INC 


HL 


7789 


18DE 


03250 




JR 


CHS 


76F4 


229C78 


02450 


ET66 


LD 


(ADRC) .HL 






03260 


• 






76F7 


012001 


02460 




LD 


BC.0120H 






03270 


;— ZONE 


ROUTINES 


76FA 


05 


D2470 




DEC 


B 






03280 








76FB 


E5 


02480 




PUSH 


HL 


778B 


21A278 


03290 


VIDE01 


LD 


HL.BUFF 


76FC 


EDBl 


02490 




CPIR 




778E 


7E 


03300 


VIDEO 


LD 


A. (HL) 


76FE 


Dl 


02500 




POP 


DE 


778F 


FE01 


03310 




CP 


1 


76FF 


C24575 


02510 


ET67 


JP 


NZ.COM 


7791 


C8 


03320 




RET 


Z 


77D2 


37 


02520 




SCF 




7792 


CD9877 


03330 


ET84 


CALL 


VID 


7703 


ED52 


02530 




SBC 


HL.DE 


7795 


23 


03340 




INC 


HL 


7705 


7D 


02540 




LD 


A.L 


7796 


18F6 


03350 




JR 


VIDEO 


7706 


329778 


02550 


ET68 


LD 


(LG) .A 






03360 


1 






7709 


1836 


02560 




JR 


RECHER 


7798 


CD3301 


03370 


VID 


CALL 


0133H 


770B 


229C7S 


02570 


PASC 


LD 


(Anpc) ,HL 


779B 


C? 


U338U 




RET 




770E 


012001 


02580 




LD 


BC.D120H 






03390 


; 






7711 


05 


02590 




DEC 


B 


779C 


E5 


03400 


KI 


PUSH 


HL 


7712 


E5 


02600 




PUSH 


HL 


779D 


C5 


03410 




PUSH 


BC 


7713 


3E0D 


02610 




LD 


A. ODH 


779E 


CDE303 


03420 


KIF 


CALL 


3E3H 


7715 


EDB1 


02620 




CPIR 




77A1 


CI 


03430 




POP 


BC 


7717 


Dl 


02630 




POP 


DE 


77A2 


El 


03440 




POP 


HL 


7718 


C24575 


02640 


ET69 


JP 


NZ.COM 


77A3 


B7 


03450 




OR 


A 


771B 


37 


02650 




SCF 




77A4 


C? 


03460 




RET 




771C 


ED52 


02660 




SBC 


HL.DE 






03470 


I 






771E 


7D 


02670 




LD 


A.L 


77A5 


CD9C77 


03480 


KIB 


CALL 


KI 


771F 


CB3F 


02680 




SRL 


A 


77AS 


FE01 


03490 




CP 


1- 


7721 


329778 


02690 


ET70 


1. 1) 


(LG) .A 


77AA 


CO 


03500 




RET 


NZ 


7724 


CA4575 


02700 


ET71 


JP 


Z.COM 


77AB 


El 


03510 


RCOM 


POP 


HL 


7727 


2A9C78 


02710 


ET72 


LD 


HL.(ADRC) 


77AC 


C34575 


03520 


ET85 


JP 


COM 


772A 


E5 


02720 




PUSH 


HL 






03530 


; SURVEILLANCE 


CLAVIER 


772B 


Dl 


02730 




POP 


DE 


77AF 


3A9E78 


00540 


SURV 


LD 


A. (FLAGES) 


772C 


47 


02740 




LD 


Bjfl 


77B2 


B7 


03550 




OR 


A 


772D 


7E 


02750 


SCB 


LD 


A. (HL) 


77B3 


200E 


03560 




JR 


NZ.SURCLA 


772E 


CD8678 


02760 


ET73 


CALL 


HEX 


77B5 


CD9C77 


03570 


ET86 


CALL 


KI 


7731 


07 


02770 




RLCA 




77B8 


C8 


03580 




RET 


Z 


7732 


07 


027B0 




RLCA 




77B9 


FE01 


03590 




CP 


1 


7733 


07 


02790 




RLCA 




778B 


28EE 


03600 




JR 


Z.RCOM 


7734 


07 


02800 




RLCA 




77BD 


FE20 


03610 




CP 


' ' 
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77BF 


CO 


03620 




RET 


NZ 


783B 


18E7 


0442C 




JR 




HXB1 


77C0 


329E78 


03630 


ET87 


LD 


(FLAGES) >A 






0443C 


; CONV 


BINAIRE/DECIMAL 


77C3 


CD9C77 


03640 


SURCLA 


CALL 


KI 


783D 


01F0D8 


0444C 


BINDC 


LD BC7-IOOOO 


77C6 


28FB 


03650 




JR 


Z7SURCLA 


7840 


CD5878 


0445G 


ET92 


CALL CBD 


77C8 


FE01 


C3660 




CP 


1 


7843 


0118FC 


04460 




LD BC7-IOOO 


77CA 


28DF 


C3670 




JR 


ZjRCOM 


7846 


CD5878 


04470 


ET93 


CALL CBD 


77CC 


FE20 


C3680 




CP 




7849 


019CFF 


04480 




LD BC7-IOO 


77CE 


ca 


C3690 




RET 


Z 


784C 


CD5878 


04490 


ET94 


CALL CBD 


77CF 


FEOD 


C3700 




CP 


ODH 


784F 


01F6FF 


04500 




LD BC7-ID 


77D1 


20FD 


C3710 




JR 


NZ7SURCLA 


7852 


CD5878 


04510 


ET95 


CALL CBD 


77D3 


AF 


C3720 




XOR 


A 


7855 


01FFFF 


04520 




LD BC7-I 


/7D4 


329E78 


03730 


ET88 


LD 


(FLAGES) 7A 


7858 


3E2F 


04530 


CBD 


LD A7 ' 0' -1 


77D7 


C9 


03740 




RFT 




785A 


E5 


04540 




PUSH HL 






03750 


I ENTREE CHAINE 


AU CLAVIER 


785B 


D5 


04550 




PUSH DE 


77D8 


21A278 


03760 


KCHAIN 


LD 


HL^BUF^ 


785C 


El 


D4560 




POP HL 


77DB 


AF 


03770 




XOR 


A 


785D 


3C 


04570 


CBD1 


INC A 


77DC 


47 


03780 




LD 


B»A 


785E 


09 


04580 




ADD HL7BC 


77DD 


CD9C77 


03790 


ATKC 


CALL 


KI 


785F 


38FC 


04590 




JR C7CBDI 


77EO 


28FB 


03800 




JR 


Z.ATKC 


7861 


ED42 


04600 




SBC HL7BC 


77E2 


77 


03810 




LD 


(HL) .A 


7863 


EB 


04610 




EX DE.HL 


77E3 


FE08 


03820 




CP 


8 


7864 


El 


04620 




POP HL 


77E5 


200D 


03830 




JR 


NZ7PACOR 


7865 


77 


04630 




LD (HL) -A 


77E7 


78 


03840 




LD 


AiB 


7866 


23 


04640 




INC HL 


77E8 


B7 


03850 




OR 


A 


7867 


C9 


04650 




RET 


77E9 


28F2 


03860 




JR 


Z7ATKC 






04660 


; CONV 


DECIMAL/BINAIRE 


77EB 


05 


03870 




DEC 


B 


7868 


11FFFF 


04670 


DECBIN 


LD DE7OFFFFH 


77EC 


2B 


0388D 




DEC 


HL 


786B 


13 


04680 




INC DE 


77ED 


3E08 


03890 




LD 


A78 


786C 


7E 


04690 


DCB1 


LD A7(HL) 


77EF 


CD9877 


03900 


VISK 


CALL 


VID 


786D 


FE30 


04700 




CP ' ' 


77F2 


18E9 


03910 




JR 


ATKC 


786F 


D8 


04710 




RET C 


77F4 


04 


03920 


PACOR 


INC 


B 


7870 


FE3A 


04720 




CP '9"+l 


77F5 


23 


03930 




INC 


HL 


7872 


DO 


04730 




RET NC 


77F6 


FE5B 


03740 




CP 


5BH 


7873 


23 


04740 




INC HL 


77F8 


2804 


03950 




JR 


Z7SORK 


7874 


E5 


04750 




PUSH HL 


77FA 


FE20 


03960 




CP 


20H 


7875 


62 


04760 




LD H7D 


77FC 


30F1 


03970 




JR 


NC7VISK 


7876 


6B 


04770 




LD L,E 


77FE 


F5 


03980 


SORK 


PUSH 


AF 


7877 


19 


04780 




ADD HL7DE 


77FF 


3E0D 


03990 




LD 


A 7 ODH 


7878 


29 


04790 




ADD HL-HL 


7801 


CD9877 


04000 


ET89 


CALL 


VID 


7879 


19 


04800 




ADD HL7DE 


7804 


Fl 


04010 




POP 


AF 


787A 


29 


04810 




ADD HL7HL 


7805 


C9 


04020 




RET 




787B 


D630 


04820 




SUB ' 0' 






04030 


1 






787D 


5F 


04830 




LD E.A 


7306 


F5 


04040 


BINHEX 


PUSH 


AF 


787E 


1601 


04840 




LD D7I 


7307 


CD0F78 


04050 


ET90 


CALL 


BHX1 


7880 


15 


04850 




DEC D 


780A 


Fl 


04060 




POP 


AF 


7381 


19 


04860 




ADD HL-DE 


7B0B 


CD1378 


04070 


ET91 


CALL 


BHX2 


7882 


EB 


04870 




EX DE7HL 


730E 


C9 


04080 




RET 




7883 


El 


04880 




POP HL 


730F 


IF 


04090 


BHX1 


RRA 




7884 


18E6 


04890 




JR DCB1 


7310 


IF 


04100 




RRA 








04900 


; CONVERSION HEXA ASCII 


7311 


IF 


04110 




RRA 








04910 


; /BINAIRE 1 QUARTET 


7312 


IF 


04120 




PRA 




7886 


D630 


04920 


HEX 


SUB 30 H 


7313 


E60F 


04130 


BHX2 


AND 


OFH 


7888 


FEOA 


OA930 




CP 10 


7315 


C630 


04140 




ADD 


A7 '0' 


788A 


D8 


04940 




RET C 


7317 


FE3A 


04150 




CP 


'9' + l 


788B 


D607 


04950 




SUB 7 


7819 


3802 


04160 




JR 


C7BHX3 


788D 


C9 


04960 




RET 


731B 


C6D7 


04170 




ADD 


A77 






04970 


! TRAP 


SHIFT M 


73in 


77 


04180 


BHX3 


LD 


<HL) 7A 


788E 


CD9C77 


04980 


KIM 


CALL KI 


7B1E 


23 


04190 




INC 


HL 












7B1F 


C9 


04200 
04210 


■) 


RET 














7320 


11FFFF 


04220 


HEXBIN 


LD 


DE70FF-"FH 












7323 


13 


04230 




INC 


DE 












7324 


7E 


0424D 


HXB1 


LD 


A7 (HL) 










foMP^IJ 


7825 


D630 


04250 




SUB 


' 0' 










7327 
732S 
732A 
732C 


D8 

FEOA 
3806 
D607 


04260 
04270 
04280 
04290 




RET 


C 














CP 
JR 
SUB 


10 
















C7HXB2 
7 








1 B 




782E 
782F 


D8 
FE10 


04300 
04310 




PET 
CP 


C 
16 


\ 


1 II'IIKP', 


bsieloobik 


Y~ 




7831 


DO 


04320 




RET 


NC 


«,LVJ* 




1 




7832 


EB 


04330 


HXB2 


EX 


DE7HL 


w 


Am 




'•\ 






7833 


29 
29 

29 


04340 
04350 
D4360 




ADD 
ADD 
ADD 


HL7HL 
HL7HL 
HL7HL 






It^ 1 w^ 


f*m^^^^ 






7834 


BUiUi 


■ a 




7835 








7836 


29 
B5 

6F 

EB 
23 


04370 
04380 
04390 




ADD 

OR 

LD 


HL7HL 

L 
L7A 




y*i 






u( , to , 


_ \\ 


7837 


<-{=z± 


*-*-«- 


u t- •- 


MH 


£ 


7838 
7839 
783A 










04400 
04410 




EX 

INC 


DE7HL 
HL 












- 


"W 
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7891 FE6D 

7893 CO 

7894 C33C7 



7897 Dl 

7898 0101 
739A 0101 
789C 0101 
7S9E 01 
789F 2D 
78A2 31 
1234567890 
78C0 20 

78EB OD 
78EC 20 
ION BASIC 
7917 ODOD 
7919 01 
791A OD 
791B 43 

7926 01 

7927 00 



48)+256*PEEK< 



04VV0 

05000 
Z 05010 ET 

05020 ; 

05030 

05040 S 

05050 LG 

05060 ADR1 

05070 ADR2 

05080 ADRC 

05090 FLAGES 

051D0 

05110 BUFF 
1234567890' 

05120 AT1TRE 
B A S P Y 

05130 

05140 
- (C) 1980 - VER 

05150 

05160 

05170 AtCOM 

05180 



CP 

RET 
JP 



6DH 
NZ 

MONI 



ZONE DES DONNEES 



DEFB 
DEFW 
DEFW 
DEFW 
DEFB 
DEFM 
DEFM 

DEFM 



1 

0101H 

0101H 

0101H 

1 

'-> ' 

' 1234567890 



7928 
7928 
792A 
792C 
792E 
7930 
7935 
7937 
793A 
793C 
793D 
7942 



4479 

0300 

41D5 

E528 

31 

29CD 

32 

CFE5 

28 

31 

2900 



HENA=A-65536 

7944 5B79 
7946 0400 

7948 8F 

7949 41D4 
794B 33 

7950 CA41 
7952 D541 

7954 CE 

7955 36 
795A 00 



»=7THEN6ELSLA= 



795B 
795D 
795F 

7961 
7963 
7965 
7967 
7969 
796B 
796D 
796F 
7971 
7973 
7976 
7978 
797A 
797C 
797E 
7980 



8179 

0500 

8FE5 

2341 

CD32 

29D5 

37CA 

363A 

95*1 

D5E5 

2841 

29CD 

32 

CFE5 

2841 

CD31 

293A 

8D34 

00 



05190 
05200 
05210 
05220 
16549) 
05230 
05240 
05250 
0526n 
05270 
05280 
05290 
05300 
05310 
05320 
05330 
05340 
05350 
0536 5 
05370 5 

05380 ! 

05390 L 

05* CO 

05410 

0542U 

0543 

05*40 

D5450 

05*60 

054/0 

05480 

05491.' ■ 

05500 i 

PEEK(A) 

0551O : 

05520 ; 

05530 L 

05540 

0555 

05560 

05570 

05580 

pssvn 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05680 

05690 

05700 

05710 



DEF !■ 

DEFM 

SION VI 1 
DEFW 
DEFB 
DEFB 
DEFM 

DFFft 

DEFB 



0D^ 



ESP 



ODODH 

1 

ODH 

' OMMANDE 

1 




LI ONE 3 > 3 A = PEEK(165 



LIGNE3 
DBAS I C 



EC-<U 

DEFW 

DEFW 

DEFW 

DEFW 

DEFM 

DEFW 

DEFM 

DEFW 

DEFB 

DEFM 

DEFW 



$ 

LIGNE* 

'J 

0D541H 

28E5H 

' 16548' 

0CD29H 

' 256 

0E5CFH 

28H 

1 16549' 

0029H 



LIGNE 4 > 4 IFA>3276"'T 



1GNE4 



DEFM 


L1GNE5 


DEFW 


4 


DEFB 


3FH 


DEFW 


OD441H 


DEFM 


'3:767' 


DEFW 


4 1CAH 


DEFW 


41D5H 


DEFB 


OCEH 


DEFM 


65536 


DEFB 






L1GNE 5 > 5 1FPLEKIA+2 



+2So*PEEK(A+l> :G0TO4 



1GNE5 DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFM 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFB 



L1GNE6 

5 

0E5SFH 

4128H 

321.DH 

DD529W 

QCP37H 

3A36H 

4195H 

0E5D5H 

4128H 

0CD29H 

2 = 6' 
DE5CFH 
4128H 
3KDH 
3A29H 
348DH 




EK( 16414) :P 
l*;A+4-Al*2 



7V81 
/983 
/V85 
/987 
/V89 
/V8B 

/vac 

/991 
7993 

/V90 

/997 
/999 
/V9A 
799F 
/9A1 
79A3 
79A5 
79A7 
79A9 
79AB 
79AC 
79AF 
/9B1 
7VB2 
7VB9 
79BB 
79BD 
79BF 
79C2 
79C4 
79CC 
79CE 



tf /v 

0600 

B141 

CD35 

2CE5 

28 

31 

2VJA 

B141 

CU36 

2CE5 

28 
31 

2V3A 

4131 

D5U8 

2828 

41 CD 

3429 

DO 

32 

293A 

Bl 

31 

CD3* 

CL*1 

31CF 

32 

3AB1 

31 

3AB2 

00 



NIT EN B1NA 

79CF 

79CF 2C/B 
79D1 0700 

79D3 210101 

79D6 221E40 

79D9 2AA440 
79DC AF 
79DD 113175 

79E0 ED52 

79E2 EB 



79E3 
79E6 
79E7 
79E8 
79EA 
79ED 
79EE 
79EF 
79F1 
79F4 
79F5 
79F6 
79F8 
79FB 
79TE 
79FF 
7A02 
7A05 
7A07 
7A09 
7A0B 



21267A 

19 

E5 

DDE1 

DD6E01 

7D 

B7 

281A 

DD6602 

19 

E5 

FDE1 

FD6E01 

FD6602 

1? 

FD75D1 

FD7402 

DD23 

DD23 

18DF 

2A1640 



05720 
05730 

0KEA+6-P 
05740 

56: 

05/50 
05/60 
057/0 
U5/80 
Ob/VO 
DbSOO 
0581U 
05820 
UD8JU 
UDB40 
0DB50 
Ubtf6U 
ObtJ/U 
ObiSSU 
ObBVO 
ObVOO 
ObVIO 
UbV20 
0bV30 
U5V*U 

obvbo 

05V6U 
059/0 
05980 
05990 
U6000 
06010 
06G20 
06U30 
06U40 
06U50 
06060 
060/0 
06080 
06090 
06100 
IRE 

06110 
06 120 
06130 
06140 
06150 
06160 
06170 
06180 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
062 6 Li 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06*10 
06420 
06430 
06440 
06450 
06460 
06470 
06480 



! LIGNE 6 > 6 P0KEA+5.PE 

EEKl 16415) : 
! Al=INT((A+4)/256):P0KE16* 

5 P0KE16M5;Al:PRINT 



LIGNE6 DEFW 
DEFW 
DEFW 
DEFW 
L'EFW 
DEFB 
DEFM 
L'EFW 
DEF W 

tEF W 
DEFW 
DEFB 
DEFM 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFB 
DEFM 
DEFW 
DLF b 

DLK M 
DEFW 

DEF W 

DEFW 

DEFM 

DtFW 

DEFM 

D-_tW 

L^FB 



LIGNE 7 

6 

41B1H 

35CDH 

0E52CH 

28H 

' 16414 

JA29H 

*1B1H 

36CDH 

0E52CH 

28H 

' 16415' 

JA2VH 

3141H 

UDBDbH 

2828H 

ULD*1H 

2V34H 

ODIJH 

' 256 

3A2VH 

0B1H 

' 16414.A 

34CDFH 

4 1ltH 

DCF31H 

1 256' 

0B13AH 

16415iAl' 
UB23AH 




; LIGNt / > btKUENCE B" 1 



LIGNE/ 
INI I 

! MOD IF 
L7P* 



E *U 
DiFW 
DEFW 
PAR P 
Ll.) 

RESTORE AD 
LD 

P01NTE DEBU 
LD 
XOR 
LD 

DELTA=<*0A4 
SBC 

DE=DELIA 
EX 

POINTE TABL 
LD 
ADD 
PUSH 
POP 
LD 
LD 
OP 
JP 
LD 
ADD 
PUSH 
POP 
LD 
LD 
ACD 
LC 
LC 
INC 
INC 
JR 
LD 



F INBfiS 

/ 
OKL 

HL/0101H 
DRIVER VIDEO 

(401EHI.HL 
T ABS PROG 

HLj (40A4H) 
A 

DE;BASPY 
)-BaSPY 
HL-DE 

DE;HL 



SREF 



H!. 
HI. 
HI 

IX 

L 

A 

A 

Z 

H, 

HL 

HI. 
IY 
L, 
H> 
HL 
( I 
I I 
IX 
IX 
SR 



; FAB-1 
.DL 



< 1X+1) 

L 

FINREF 
( IX+2) 
-DE 



< IY+11 
(1Y+2) 
;DE 

Y+l) ,L 
Y+2) .H 



EF 



FINREF 



HL> (4016H) 
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06490 


7A0E 


229F77 


065DO 


7A11 


218E78 


06510 
06520 


7A14 


221640 


06530 


7A17 


AF 


06540 
06550 


7A18 


329A77 


36560 
36570 


7A1B 


212879 


365S0 
D6590 


7A1E 


22A440 


D6600 
D6610 


7A21 


CD491B 


D6620 
D6630 


7A24 


C3191A 


06640 
D6650 


7A27 


0E7A 


D6660 


7A29 


It/A 


06670 


7A2B 


187A 


D6680 


7A2D 


1B7A 


06690 


7A2F 


8E78 


06700 


7A31 


4575 


06710 


7A33 


4B75 


06720 


7A35 


7E75 


D&730 


7A37 


9075 


06740 


7A39 


AC75 


D6750 


7A3B 


EE75 


06760 


7A3D 


F375 


06770 


7A3F 


0676 


06780 


7A41 


IF 76 


06790 


7A43 


3176 


06800 


7A15 


'■276 


06810 


7A47 


5076 


06820 


7A49 


7D76 


06830 


7A4B 


8476 


06840 


?A4D 


A476 


06850 


7A4F 


CB76 


06860 


7A51 


0B77 


36870 


7A53 


4177 


06S80 


7A55 


4577 


36890 


7A57 


5D77 


36900 


7A59 


6977 


06910 


7A5B 


6F77 


06920 


7A5D 


SB77 


06930 


7A5F 


A577 


06940 


7A61 


AF77 


06950 


7A63 


C377 


06960 


7A65 


D877 


D6970 


7A67 


DD77 


06980 


7A69 


EF77 


06990 


7A6B 


5275 


07DO0 


7A6D 


CF76 


07010 


7A6F 


9478 


07D20 


7A71 


3F75 


07030 


7A73 


4275 


07040 


7A75 


4875 


07050 


7A77 


6075 


07060 


7A79 


6775 


07070 


7A7B 


6E75 


07080 


7A7D 


7575 


07090 


7A7F 


8375 


07100 


7AS1 


8775 


07110 


7A83 


9375 


07120 


7A85 


9775 


07130 


7A87 


9B75 


07140 


7A89 


A775 


07150 


7A8B 


B075 


07160 


7ABD 


B475 


07170 


7A8F 


B975 


07180 


7A91 


BC75 


07190 


7A93 


BF75 


07200 


7A95 


C275 


07210 


7A97 


C575 


07220 


7A99 


C875 


07230 


7A9B 


D675 


07240 


7A9D 


D975 


07250 


7A9F 


FB75 


07260 


7AA1 


FE75 


07270 


7AA3 


0B76 


07280 



; ANCIEN DR1V! H CLAVIER 
ET1P LD (KIF+UjHL 

ET2P LD HL j KIM 

i NOUVEAU DRIVER CLAVIER 

LD (4016H.-7HL 

XOR A 

; CALL 33H 

ET3P LD (VlD+2) >A 

! ULBUI BUFFER BA5IC 
ET4P LD HL;DBAblC 

5 DEPORTE BUFFER BASIC 

LD '.40AtH)>HL 

! NEW 

CALL 1B49H 
; RETOUR AU BASIC 

JP 1A19H 



TAB 



DEF'W 


EI IP 


DEFW 


ET2P 


DEFW 


ET3P 


DEFW 


ET4P 


DEFW 


KIM 


DEFW 


COM 


DEFW 


ATCLA 


DEFW 


COM IN 


DEFW 


DISPL 


DEFW 


CAD2+1 


DEFW 


BOUR 


DEFW 


SLIG 


DEFW 


PB 


DEFW 


SASC 


DEFW 


PAPOIM 


DEFW 


FLIG 


DEFW 


CONVER 


DEFW 


EDIT 


DEFW 


SUEDH + l 


DEFW 


ATED 


DEFW 


SEARCH 


DEFW 


PASC 


DEFW 


RECHE^ 


DEFW 


RECH+1 


DEFW 


EGAL1 


DEFW 


CHS 


DEFW 


EDATR 


DEFW 


VIDE01 


DEFW 


KIB 


DEFW 


SURV 


DEFW 


SURCLh 


DEFW 


K CHAIN 


DEFW 


ATKC 


DEFW 


VISK 


DEFW 


ETO 


DEFW 


ET1 


DEFW 


ET2 


DEFW 


ET3 


DEFW 


ET4 


DEFW 


ET5 


DEFW 


ET6 


DEFW 


ET7 


DEFW 


ET8 


DEFW 


ET9 


DEFW 


ET10 


DEFW 


ET11 


DEFW 


ET12 


DEFW 


ET13+1 


DEFW 


ET14+1 


DEFW 


ET15 


DEFW 


ET16+1 


DEFW 


ET17 


DEFW 


ET18 


DEFW 


ET19 


DEFW 


ET20 


DEFW 


ET21 


DEFW 


ET22 


DEFW 


ET23 


DEFW 


ET24 


DEFW 


ET25 


DEFW 


ET26 


DEFW 


ET27 


DEFW 


ET28 



7AA5 


0E76 


07290 


DEFW 


ET29 


7AA7 


1776 


07300 


DEFW 


ET30 


7AA9 


1C76 


07310 


DEFW 


ET31 


7AAB 


2476 


07320 


DEFW 


ET32 


7AAD 


3576 


07330 


DEFW 


ET33 


7AAF 


3876 


07340 


DEFW 


ET34 


7AB1 


3F76 


07350 


DEFW 


ET35 


7AB3 


4676 


07360 


DEFW 


ET36+1 


7AB5 


4A76 


07370 


DEFW 


ET37 


7AB7 


4D76 


07380 


DEFW 


ET38 


7AB9 


5876 


07390 


DEFW 


ET39 


7ABB 


5B76 


07400 


DEFW 


ET40 


7ABD 


5E76 


D7410 


DEFW 


ET41 


7ABF 


6376 


07420 


DEFW 


ET42 


7AC1 


6676 


07430 


DEFW 


ET43 


7AC3 


6976 


D7440 


DEFW 


ET44 


7AC5 


6D76 


07450 


DEFW 


ET45 


7AC7 


7176 


07460 


DEFW 


ET46 


7AC9 


7476 


07470 


DEFW 


ET47 


7ACB 


7876 


07480 


DEFW 


ET48 


7ACD 


3076 


07490 


DEFW 


ET49 


7ACF 


8776 


075D0 


DEFW 


ET50 


7AD1 


8B76 


07510 


DEFW 


ET51 


7AD3 


SF76 


07520 


DEFW 


ET52 


7AD5 


9976 


07530 


DEFW 


ET53 


7AD7 


A176 


07540 


DEFW 


ET54 


7AD9 


A976 


07550 


DEFW 


ET55 


7ADB 


Ei276 


07560 


DEFW 


ET56 


7ADD 


B576 


07570 


DEFW 


ET57 


7ADF 


B876 


07580 


DEFW 


ET58 


7AE1 


BE76 


07590 


DEFW 


ET59+1 


7AE3 


D276 


07600 


DEFW 


ET60 


7AE5 


D676 


0761D 


DEFW 


ET61+1 


7AE7 


DC76 


07620 


DEFW 


ET62 


7AE9 


E076 


07630 


DEFW 


ET63 


7AEB 


E476 


07640 


DEFW 


ET64+1 


7AED 


EA76 


07650 


DEFW 


ET65 


7AEF 


F476 


07660 


DEFW 


ET66 


7AF1 


FF76 


0767D 


DEFW 


ET67 


7AF3 


0677 


07680 


DEFW 


ET68 


7AF5 


1877 


07690 


DEFW 


ET69 


7AF7 


2177 


07700 


DEFW 


ET70 


7AF9 


2477 


07710 


DEFW 


ET71 


7AFB 


2777 


07720 


DEFW 


ET72 


7AFD 


2E77 


D7730 


DEFW 


ET73 


7AFF 


3877 


07740 


DEFW 


ET74 


7B01 


4877 


07750 


DEFW 


ET75 


7B03 


5377 


07760 


DEFW 


ET76+1 


7B05 


5877 


07770 


DEFW 


ET77 


7B07 


7277 


07780 


DEFW 


ET78 


7B09 


7577 


07790 


DEFW 


ET79 


7B0B 


7877 


07800 


DEFW 


ET80 


7B0D 


7B77 


07810 


DEFW 


ET81 


7B0F 


8377 


07820 


DEFW 


ET82 


7B11 


8677 


07830 


DEFW 


ET83 


7B13 


9277 


07840 


DEFW 


ET84 


7B15 


AC77 


07850 


DEFW 


ET85 


7B17 


B577 


07860 


DEFW 


ET86 


7B19 


C077 


07870 


DEFW 


ET87 


7B1B 


D477 


07830 


DEFW 


ET88 


7B1D 


0178 


07890 


DEFW 


ET89 


7B1F 


0778 


07900 


DEFW 


ET90 


7B21 


OB78 


07910 


DEFW 


ET91 


7B23 


4078 


D7920 


DEFW 


ET92 


7B25 


4678 


07930 


DEFW 


ET93 


7B27 


4C73 


07740 


DEFW 


ET94 


7B29 


5278 


07950 


DEFW 


ET95 


7B2B 


00 


07960 


DEFB 


00 


7B2C 


OODO 


07970 


FINBAS DEFW 


00 


7B2E 


213175 


07980 


INI LD 


HLjBASPY 






07990 


1 DEBUT BUFFER 


BASIC 


7B31 


22A440 


08000 


LD 


(40A4HI >HL 


7B34 


212E7B 


08010 
00020 


LD 
i FIN BUFFER 


HLjINI 


7B37 


22F940 


08030 


LD 


140F9H) >HL 






08040 


; RETOUR AU BASIC 


7B3A 


C3CC06 


08050 


JP 


-t>ttH -lft\<}tf 


7B2E 




08060 


END 


INI 


00000 TOTAL 


ERRORS 






22072 TEXT 


AREA BYTES LEFI 


Alain Plnaud 
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essai 



Un nouveau poquette 

le PC-1251 
et son interface CE-125 



w 

H 

H 
W 

o 

&4 




Apres le PC- 121 1, le PC-1500, le PC- 1212 (remake du 
PC- 1211), SHARP sort enfin un ordinateur de poche qui 
salt, allier la petite taille du PC-1211 a la puissan- 
ce du PC-1500 : le PC- 1 2«>1 . En effet sa petite taille 
(135 x 70 x 9,5 mm) permet qu'll soit range dar.s une 
poche de veston par exemple... 

II est dote d'jn microprocesseur 8 bits (malheureu- 
sement puur lea adeptes du langage machine, il est 
different de celui du PC-1500 ; done tout le travail 
de recherche des Instructions e3t a refaire !), d'une 
memolr-e ROM de 21K octets, d'une memoire RAM de IK 
octets (3*4 86 octets utllisateur) . 

En un point, le PC-1251 differe de ses predecesseurs : 
la mise sous tension s'effectue a l'aide d'un inter- 
rupteur manuel a 4 positions (et nun par 2 touches 
ON et OFF) ainsl que le changeraent de MODE (HES..RUN, 
PRO). 

Le BASIC est tout a rait identique a celui du PC-1500: 
PRINT, PAUSE, GOTO. GOSUB, RETURN, BEEP, etc. 

Mais alors, pourquoi ce BASIC occupe-t-11 24K au lieu 
de 1 6K '/'it Parce qu'il contient des instructions sup- 
plementaires par rapport a un BASIC standard : SETCOM, 
INSTAT, OUSTAT et blen d'autres ; or tout programmeur 
qui se respecte reconnaitra ici des instructions d' 
entrees-sorties RS-232C . L' interface logicielle eunt 
done incluse dans le PC-1251, a quand 1' interface ma- 
terielle ? 

Autres particularity qui n'echapperont pas a t^ute 
personne s' interessant aussi aux CASIO : le contraste 
d'affichage reglable, 1 ' instruction ROM (eh oui ! elle 
est dans le BASIC du 125), la tres forte ressemblance 



entre 1' ensemble PC-1251+CE-125 et la FX-801P, et 
l'instruction PASS (protection du programme par un 
mot de passe). 

Er effet, le CE-125 est une extension lmprimante et 
mlcrocassette. L' iTiprimante et de '.ype thermlque et 
peut imprimer 21 caracteres par ligne ; on dispose 
d'un commutateur ON/OFF pour 1' imprlmante . d'un bou- 
ton pour faire avaicer le papier d ' une touche du PC- 
1251 (SHIFT ENTER) pour commuter 1' Impression autoita- 
tique des donnees, et des commandes BASIC. 

La mlcrocassette est commandable par les ordres CSAVE 
CLOAD, etc... et les 5 touches STOP/EJECT, FAST, RE- 
WIND, PLAY, RECORD et un lnterrupteur REMOTE ON/OFF. 

Le CE-125 est pourvu de <t connecteurs : 

. un connecteur male pour le PC-'251 (11 broches) 

. un connecteur feme lie pour les futures extensions 
( 1 1 broches) 

. une prise jack femelle pour brancher un magneto- 
phone exterieur 

. une prise femeLle pour l'adaptateur secteur EA- 
23E. 

A noter qu'au Japon est distribute une version redui- 
te du PC-1251 : le PC- 1250 qui ne possede que 1138 
octets programmables utllisateur. 

Le PC-1251, d'une plus forte puissance que le PC-1211, 
d'un encombrement et d'un prlx moins eleves que le 
PC-1500, constltue le materiel Ideal pour l'amateur 
des ordinateurs de poche ou pour la personne qui de- 
sire s'initier au EASIC... 

Ma^ntenant, attendens les extensions... 



.Daniel Glazman 
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W mathematiques 

H 

g Soyez precis 

§, dans vos factorielles 

o 



Materiel : PC- 1500 ou PC-1251 

Votre olaculatrice scientifique habltuelle possede 
tres certainement la fonction x ! (factorielle x) ; 
seuleraent voila : x doit etre inferieur oil egaL a 69 
e: le resultal "sor'L" en puisacunje de 10. 

Alors comment obtenlr tous ies chiffres d'une facto- 
rielle : tout simplement en simulant une multiplica- 
tion a plus de dix chiffres significatifs. 

Pour cela, on separe tout norabre de plus de 10 Chir- 
fres en plusieura groupes d'au maximum dix chiffres : 

ex : 123456789012 — » 12 at 3"56Y8901i> 

Pjis chaque groupe de dix chiffres eat separe en deux 
de 4 et 6 chirfres pour pouvoir operer une multipli- 
cation a retenue. Lors de 1' operation sur un groupe, 
on additionne la retenue du groupe precedent. En fait, 
il s'agit d'une simple relation de recurrence entre 
un groupe de dix chiffres et le suivant. 

L' architecture du programme a present : 

Lignes 10 a II : . initialisation ; 

. le tableau A(190! contiendra les 
groupes de 10 chiffres 

. mise a de la retenue 
Ligne 20 : si on veut A ! 

alors BE J 2, A J 
Ligne 30 : pour multiplier tuus les groupes 

par B 

Lignes 40, Ml : multiplication avec retenue 
Lignes 60,70 : si la retenue du dernier groupe est 

dif ferente de 1 , creer un nouveau 
groupe et y stocker la retenue 



Ligne 80 


impression formatee du dernier 




groupe 


L.gnes 90 a 120 


impression formatee des autres 




groupes 


Lignes 200,201 


sous-routine de formal tage 



00! a 

933262 15 
4433441526 
8169323885 
6266200490 
7159682587 
4978963657 
7361367691 
5481532299 
1560894146 
3976156518 
2862536979 
2082722375 
8251185210 
9168640000 
0000000000 

0000000000 



Petit* demur.stration 
f icatif s. 



100! avec 1b8 chiffres signi- 



Daniel Glazman 



1. 


REM (.C) Danie 1 




; c=0 


:LPR1NT A$.Q$^' 




GLAZMAN 


30 


P0R E^0TO F 


"0" 


2 


REM CO TRACE 


40 


D=A(E;*1E-6:Q( 


90:' :: OR I=F-1T0 


3 


REM n ! 




E)=C:C=INT D*B 


STEP -1;A$^ 


4 


REM D ARJS 82 




*1E-'1:A(E)-A(E 


STR$ aci; 


10 


'Z'TLEAR : 




)-K(D-INT Dm 


100: IF LEN A*O10 




INPUT A:F=0:O 




E6*B)+(C-1NT C 


G0SUB 200 




0:D1M A(190):A 




>*1E10 


1 10:LPR1NT A* 




(F)-l 


41 


C=JNT C:NEXT E 


120: NEXT 1 ; END 


.11 


WAIT 0:LPRJNT 


60 


IF CO0LET F-F 


200:A$=Q$-+A$: IF 




A;' : ! =" 




+ JUA<F)=C 


LEN AJ6O10GOTD 


?0 


FOR B--2T0 A: 


70 


NEXT B 


200 




BEEP l: PRINT B 


80 


A(F): G0SUB 200 


201; RETURN 
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statistiques 



Un programme 
pour mieux 
prevoir 

(version poquette) 




Dans notre numero 2 ("Un programme pour mieux prevoir" 
page 17), nous langions une sorte de defi en disant : 
"les lecteurs reussissant a falre tenir ce programme 
sur poquette aont pries de nous en informer : c'est 
moins encombrant pour s'expliquer avec son superieur 
hierarchique !)..." Pascal Canbier a reussi cette per- 
formance sur ?C-1 (PC-121 1 ). Herd a lui et bravo ! 
(NDLR) 

CONSIGNES PRATIQUES 



Mode DEF : 

. Shift SPC - Efface toutes les anciennes donnees et 



aemarre le programme. 
. Shift D - Entrees des donnees (couples X,Y). 
. Shift C - Correction de donnees (couples X,Y). 

- Stoppe 1' execution. 

- A reprendre par exenple, avec Shift D... 
. Shift = - Donne les resultats. 

- Calcul de previsions en donnant X ou Y. 
. Shift L - 2eme point de Shift = ( choix entre X 

et t). 

Note : 

Le programme est prevu pour l'lmprimante mats peut 
naturellement etre utilise sans elle aux prix de quel- 
ques transformations de presentation (USING "...", 
PRINT "..."). 



DONNEES 


::: «. 


R= 0.234321 


V =4.16875477 


X: 1. 


Y: 4. 




POUR X=7. 


Y: 1. 


X: 9. 


PUISSANCE 


Y =4.464512217 


X: 2. 


Y: 5.5 


Y=AX"B 


POUR X=8. 


Y: 5.5 


X: 10. 


A= 1.3793340E 00 


Y =4.737616933 


Xi 3. 


Y: 4. 


£= 4.4464667E-CI1 


POUR X=9. 


Y: <;. 


LINEAIRE Y=A+BX 


R= 0.381298 


Y =4.992346741 


CORRECTION 


A= 3.0000000E 00 


LP ffEILLEURE 


POUR X=10. 


X: 3. 


B= 1.9090909E-01 


ESTIMATION SERA 


Y =5.231794267 


Y: 4. 


R= 0.152436 


PUISSANCE 


POUR X=0.5 


DONNEES 




POUR X=l. 


V =1.380867451 


X: 3. 


EXPONENT I ELLE 


Y =1.87933404 


POUR Y=l. 


Y: 5. 


Y=A EXP<B*X> 


POUR X=2. 


X =2.419755266E- 


X: 4. 


A= 2.3105606E 00 


Y =2.55773748 


01 


Y: 2.5 


B= 3.6720779E-02 


POUR X«3. 


POUR Y=0. 


X: 5. 


R= 0.235215 


Y =3.063051937 


X =0. 


Y: 2. 




POUR X=4. 


POUR Y=0.5 


X: 6. 


LOGARITHM I QUE 


Y =3.481031513 


X =5.09051S373E- 


Vi 5. 


Y=A+B*L0GX 


POUR X=5. 


02 


X: 7. 


A= 2.5733463E 00 


Y =3.844135347 


POUR Y=6. 


Yi 5. 


B= 2.2510776E 00 


POUR X=6. 


X =13.60866253 
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la REM CSAVE "S 


PRINT m a=";a 


200: V=V-26: GOSUB 


TATIST" 


: PRINT "B="j 


200+V: V=V--3: 


2: REM PC1.1A 


B: USING "tttt. 


GOTO 220 


10 CLEAR 


nnntnn": 


203: PRINT "LINEA 


15: "D": PRINT "D 


PRINT m r=";t 


IRE": RETURN 


ONNEES" 


: USING : 


206: PRINT "EXPON 


20: INPUT "X? ■■; 


PRINT " ": 


ENTIELLE": 


X: INPUT "Y? 


RETURN 


RETURN 


"JY: PRINT "X 


100: "="PRINT "LI 


209: PRINT "LOGAR 


: "5X: PRINT 


HEAIRE Y=A+B 


ITHMIQUE": 


"Y: "IY1GOT0 


X": GOSUB 140 


RETURN 


30 


:GOSUB 90 


212: PRINT "PUISS 


25: GOTO 20 


110: PRINT "EXPON 


ANCE": RETURN 


30:Z=Z+l:C=C+X: 


ENTIELLE": 


220: GOSUB 10V+13 


B=D+Y:E=E+XX 


PRINT " V=A 


0:U=U-24:U=U 


:F=F+YY:V= 


EXP<B+X;'": 


■•'3 


LOG Y:G=G+XV 


GOSUB 150: 


230 :"L" BEEP 3: 


:H=H+V:I=I+V 


GOSUB 90 


INPUT "X OU 


V:W=LOG X."J= 


120! PRINT "LOGAR 


Y ? "5R$: 


J+YW:K=K+W 


ITHMIQUE": 


GOTO R* 


40:L=L+WW:M=M+V 


PRINT " Y=A+ 


235: GOTO 230 


W:N=N+XY: 


B*LOGX": 


300: "X" 


BEEP li GOTO 


GOSUB 160: 


310: BEEP 3: INPUT 


20 


GOSUB 90 


"X? "5X: 


50:"C"PRINT "CO 


130: PRINT "PUISS 


PRINT "POUR 


RRECTION": 


ANCE": PRINT 


X=";X: GOSUB 


INPUT "X? "5 


" Y=AX-"-B": 


320+2IJ: PRINT 


X: INPUT "Y? 


GOSUB 170: 


"Y ="5YsG0T0 


"5Y: PRINT "X 


GOSUB 90: 


310 


: "!X: PRINT 


GOTO 130 


315: GOTO 310 


"Y: ";Y:GOT0 


140- 1.1=27: Ci=N:P=E 


322:Y=A+B*X: 


60 


:Q=C:R=B:S=F 


RETURN 


55: GOTO 50 


: GOSUB 80: 


324:Y=A*EXP <BX) 


60:Z=Z-l:C=C-X: 


RETURN 


: RETURN 


B=B-Y:E=E-XX 


150:U=30:0=G:P=E 


326:Y=A+B*L0G X: 


:F=F-YY:V= 


:q=C:r=h:S=I 


RETURN 


LOG Y:G=G-XV 


: GOSUB 80: 


328:Y=A*<X'-B>: 


:H=H-V:I=I-V 


RETURN 


RETURN 


V:W=LOG X:J= 


16Ci:U=33:Ci=J:P=L 


400: "Y" 


J-YW:K=K-W 


:Q=K:R=B:S=F 


410: BEEP 3: INPUT 


70:L=L-WW:M=M-V 


: GOSUB 80: 


"Y? "!Yl 


N:N=H-XY: 


RETURN 


PRINT "POUR 


BEEP 2: END 


170:U=36."Ci-h1:P-L 


Y="8 Y: GOSUB 


80:V=0-Q*R''Z:B= 


:Q=K:R=H:S=I 


420+21): PRINT 


W<P-Q+Q.--'Z:>: 


! GOSUB 80: 


"X ="JX:GOTO 


T=B*V/<S-R*R 


RETURN 


410 


/Z):A=(R-B*Q 


180: U=0: FOR W=29 


415: GOTO 410 


)/Z: IF <U=30 


TO 38STEP 3: 


422:X=CY-A>.-B: 


)+<U=36)LET 


IF IKAOOLET 


RETURN 


A=10-A 


LI=A(W):V=W 


424:X=LN CV^AVB 


85:ACU)=B:A<U+l 


190: NEXT U: PRINT 


: RETURN 


>=A:A<U+2>=T 


"LA MEILLEUR 


42S:X=10'-O::Y-A)/ 


: RETURN 


E": PRINT "ES 


B>: RETURN 


90: USING "IS. St 


T I MAT I OH SER 


428:X=(Y-A> A <1/B 


nnnnn ■": 


A" 


) : RETURN 



.Pascal Carabier 
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utilitaire 



Recopiez l'ecran de votre 
PC-1500 ou PC-2 



(C) D 


xniel GLAZMAN 


<C> 


TRACE 


PARIS 


1983 


HARDCOPY 


20000 


"Z"GRAPH : 




SORGN :A--1 


20005 


FOR 1--0TO 6: 




A=A*2- IF 1-0 




LET A=l 


20007 


FOR J=BTO 15 




5 


23010 


*=P0.1NT J AND 




A: IF XO0 




LINE (J, -1*3 




)-<J, -1*3-2) 


23020 


NEXT J: NEXT 




l: TEXT 


2002 J 


• LF l: RETURN 



Tous lea ordinateurs de table disposant du graphique 
et d'une imprlmante peuvent recopier l'ecran sur l'im- 
primante, alors pourquol pas le PC-1500, ce grand or- 
dinateur de poche ? 

En effet, pourquol pas ? La CE-150 ne peut pas tmpri- 
mer un seul point mals est capable de tracer une li- 



gne cntre 2 points ; done repreaentons un point de 
l'ecran par une de ces llgnes. . . ce qui donne le pro- 
gramme HARDCOPY. 

L'appel se fait par un GOSUB"Z", on laisse tourner 
(,1'ai beaucoup d'estirae pour ce "on") et on admire.,. 

ARCHITECTURE PROGRAMME : 



w 

H 
H 

W 

8- 

O 

a* 



Ligne 20000 
Llgne 20005 
Ligne 20007 
Ligne 20010 

Ligne 20020 
Ligne 20021 



initialisation 

ligne par ligne 

colonne par colonne 

le point est-il allume 7 3i oui tracer 

sur 1' imprlmante une petite ligne 

R-A-S 

EXIT 



Exemples : 10 PRINT"HELL0, EVERYBODY. . ." 
20 G0SUB"Z" 
30 END 



ip i H.Lyrcysiiv 

itLWJC.u'lflJSliii 



5 WAIT8 
10 p'0I)I-0T015t>:CPRINTI; : NEXTI 
20 G0SUB"Z" 
30 END 



«nramm«ra|jjg 



eh out ! ca marche... 

P. 3.: Pour les amateurs d'effets speuiaux : remplacer 

en ligne 20020 : 

LINE(J,-1*3)-(J, -1*3-2) par 
LINE(J,-I*10)-(J, -1*10-9)-.. et essayez. 



Daniel Glazman 
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essai materiel. 



Une interface universelle 

CE-158 



fffSESMSBBBBtBanj 
■ 







La CE-158 de SHARP est line interface RS-232C et paral- 
lel^ pour PC-1500 ; elle se_branche directement soit 
sur le PC-1500 soit a l'arriere gu CE-150. 

L' interface serie RS-232C perraet le branchement sur 
un coupleur acoustique, une impriraante, un traceur de 
courbes, un autre ordinateur, un affichage video. 
Elle rajoute 34 ordres au BASIC cont certains sont 



directement prevus pour une imprimante 80 ou 132 co- 
lunnes. Le debit (en bauds) est programmable de 50 a 
2100 bauds. Lea caracteres peuvent etre formes de 5, 
6, 7 ou 8 bits. Le mode "terminal" permet la transmis- 
sion de donnees avec un ordinateur personnel, le trai- 
tement de donnees de mesure a partir d' instruments. 

L' interface parallele permet la connexion directe avez 
toute imprimante 80 ou 132 col. de la gamme SHARP (ou 
tout autre au format de sortie parallele 8 bits). 

La C2-158 est done une interface tres interessante 
pour le PC-150Q : en effet, on peut, par exemple, sau- 
ver les programmes de son poquette sur le floppy de 
son ordinateur de table, communiquer avec un autre 
PC-1500 par le telephone. Malheureusement, son prix 
(environ 2500 F TTC) ne la met pas a la portee de tou- 
tes les bourses. On peut cependant eeperer que l'ecart 
entrs le prix frangais et les prix des autres pays 
( environ 1200 F de difference ) va recuire avec le 
temps. 

Un dernier mot sur le manuel d'emploi du CE-158 : 11 
est tres technique... done il est cor.seille de con- 
naitre la liaison HS232C avant de s'aventurer dans ce 
manuel ! 



Daniel Glazman 



enseignement: 




Ameliorez 
votre calcul 
mental 



Lorsque vous possedez une petite calculatrice ( ou un 
TRS-80 pocket/Sharp PC— 1211), et que vous avez un cal- 
cul un peu complique a faire, vous sortez votre machi- 
ne de votre poche et vous calculez... Mais... sous 
pretexte de calculs un peu compliques, vous sortez 
tout le temps votre calculatrice... Erreur fatale. . . 
Dltes-moi , sans utiliser votre calculatrice combien 
font 2705 x 68 ?. . . 



Oh, merveille des ordinateurs 
nous. . . eh blen non ! . . . 



lis calculent pour 



Aujourd'hui, je vous propose un programme de Calcul 
Mental sur pockette qui vous permet ae "reapprendre" 
a calculer mentalement et rapidement . . . 

Mode d'emploi : 
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Apres avoir rentre le programme en mode DEF, tapes 
SHIFT = 

Vous voyez apparaltre : 

RND = 

Tapez un nombre entre et 1 , 

Ex : RND = 0.270568ENTER 

Apres une breve presentation, l'OP vous demande le 
nombre d'essais que vous voulez faire c'est-a— dire 
combien de foi3 voulez-vous calculer mentalement . 

Ex : NB D'ESSAI : 3ENTER 

Puis, le nombre de chiffres (1/8) avec lesquels vous 
voulez calculer. 

Ex : Combien de chirfrco (1/8) : 2ENTER 

Et enfin avec quel signe vous voulez calculer. 

Ex : Signe (+,-,*,/) : + ENTER 

Un bref instant, et bip, le calcul clignote le nombre 
de fois le nombres de chiffres (ici, 2) ; 

Ex : 54 ♦ 46 = 

RESULTAT ? 100 ENTER 

Bip, bip... BRAVO, CONTINUEZ... 

ATTENTION, JE RECOMMENCE... 

Bip. . . 

74 + 62 = 
RESULTAT ? 158 (cs qui est faux!) ENTER 
PAS DE CHANCE... 

74 + 62 = 136... (e'est evident !) 
Et ainsl de suite jusqu'aux 3 essais... 

Avez-vous essaye de calculer avec 8 chiffres ? C'est 
tres impressionnant. . . 

Mon record personnel est une addition avec 6 chiffres 
(incroyable, mais vrai !!) 

A la fin du jeu, l'ordinateur vous affiche votre note 
aur le nombre d'essais... Essayeg d'avoir la moyenne. . 
Un conseil pour les tricheurs. . . ( ce n'est pas bien, 
ce que Je fais la ! ) 

Lorsque l'OP vous demande : RND = , si vous rentrez 
2 fois le mime nombre dans 2 parties differentes, 
vous remarquerez que les nombres tires au hasard sont 



toujours les memea. . . (caoaycz pluoieurs fois l'exem- 
ple ci-dessus). 

Malntenant, je vous laisse taper ce programme et... 
reapprendre a calculer. . . 

Le programme : 

Ligne 10 : presentation, demande du "RND" 

Ligne 20 : formule olassique du "RND" 

Ligne 50 : demande du nombre d'essais du Joueur et 

du nombre de chiffres avec lesquels ce- 

lui-cl veut calculer 
Ligne 55 : formule permettant de savoir entre et 

combien il faut cholsir les chiffres du 

RND 
Ligne 60 : demande du signe avec lequel le joueur 

veut calculer 

Ligne 70 : affichage du calcul a faire et demande 

du resultat 
Ligne 80-100 : texte du calcul a faire 
Ligne 110 : affichage de la phase reponse a une mau- 

vaise entree du signe 
Ligne 120 : affichage de la phase de solicitation 
Ligne 130 : affichage du resultat exact si celui du 

jftiifiiii* etait faux 
Ligne 900 : affichage de l'au-revoir et fin 
Ligne 910 : affichage de la note 
Ligne 920 : on recommence ! . . . 

Organisation de la memoire : 

B i le RND (calcule) 

C : borne superieure 

D : nombre de chiffres 

E : nombre d'essais 

R : resultat (du joueur) 

S : operation 

V : resultat (de la machine) 
X : ler nombre 

Y : 2eme nombre 

Z : RND (du joueur) 

F : nombre de tours effectues 

T : notre sur le nombre de tours 

Le reste de la memoire n'est pas utilise. 
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Jean-David Blanc 



5: REM "CM. COPY 




>=1PRINT 'PA 




V=KY!G0T0 12 


SS*5" "5Y?" 


RIHGT : J-D 




S DE 0. "i 







»"i PRINT VI" 


BLANC ET TRA 




GOTO 50 


100 


IF S*='V"LET 


":F=F+1 


CE 


55 


E=ABS E:C= 




V=INT <X'Y>i 


:G0SUB 900: 


10:"= "CLEAR : 




ABS l::D=C:C= 




GOTO 120 


GOTO 70 


INPUT "RND = 




10'-C-1 


110 


BEEP 5: PRINT 


900: IF F=EBEEP 3 


"5Z: PAUSE " 


50 


INPUT "SIGNE 




"C'EST FAUX 


: PAUSE "C'-ES 


♦CALCUL. M 




(. + > - > * » / ) : 




! ! ! " : PAUSE " 


T L A HEURE DE 


ENTAL*":BEEP 




" ; s* 




VOUS H'WIEZ 


NOUS...": 


2s GOTO 50 


70 


Gi'JSUB 20: 




QU'-A... ": 


PAUSE "QUITT 


20: FOR B=24TG 2 




BEEP liFOR E 




PAUSE "BIEN 


ER AU REV 


5:Z=Z+JT:Z=ZZ 




=1T0 D: PAUSE 




RENTRER LE S 


0IR. ..":BEEP 


ZZZ:Z=Z-INT 




k; m ";s$;" " 




IGNE ! !":END 


1 


Z:A<B>=1+INT 




IYSNEXT B: 


120 


HF R=VBEEP 2 


910: IF F=EPRINT 


<CZ>:NEXT E: 




INPUT "RESUL 




: PAUSE "BRAV 


"VOTRE NOTE 


RETURN 




TAT ?"!R:IF 




0. . .CONTINUE 


:»;-[•; .i/"5F! 


50 : INPUT "NB D'- 




S*="+"LET V= 




Z. ..":T=T+i: 


END 


ESSAI :"5E: 




K+ViCOTCS 120 




F=Ft-l:G0SUB 


920: BEEP 2: PAUSE 


INPUT "COMB I 


80 


:IF S$="-"LET 




900: GOTO 70 


"ATTENTION.. 


EN HE CHIF.C 




V-X-YiGGTO 1 


130 


: PR INT "PAS B 


.JE REC0M-": 


i/S> :"!C:IF 




20 




E CHANCE ..." 


PAUSE "-MENC 


>:'C=0)+';E=0> 


90 


: IF S$="*"LET 




SPRINT Kj " " 


E. .. ": RETURN 
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U extension logicielle, 



W 

o 



Pilotez 

deux magnetophones 

avec votre 

PC-1500 ou PC-2 



Si vous pos3edez la CE-155, changer les lignes sui- 
vante3 : 

10 DATA &A5, 438,0 
12 DATA 4AE, 438,0 

15 FOR I=438C5 TO 438C5+11 : 

17 POKE 438(80,3 : 

Taper : RUN 

Mettre 1' int errupteur REMOTE sur ON 

Taper IENTERI — > REMOTE est mis a OFF par SOFT... 

Np tnur.hez plus a 1 ' lnterrupteur ! 

Maintenant l'orcre REMOTE sera inverse (ON j=±OFF) par 
un simple CALL 44005 (438C5 avec CE-155). 

Alors quel etait le petit plaisantln qui se plaisnait 
du fait qu'on ne puisse tele commander qu'une K7 par 
SOFTWARE ? 



A5 


40 


00 


LD A, 


4000 


BD 


86 




XOR A, 06 


AE 


40 


00 


LD 4000, A 


BE 


BF 


28 


CALL 


BF28 


9A 






RET 





L'adresse d' lmplatatlon etant &40C5, l'adresse &4000 
etant inltialement positlonnee a 3- 

Pour rentrer le programme assembleur : 

taper : NEW440D1 (438D1 avec CE-155) 
rentrer le programme suivant : 



I 


REM 


(.C) 


Dan i e I 
GLAZMAN 


2 


REM 


CO 


TRACE 


3 


REM 


PARIS 83 



10 


DATA 


&A5, 


&40, 


11 


DATA 


&BD, 


8,06 


12 


DATA 


&AE, 


&40, 


13 


DATA 
28 


&BE, 


&BF,& 


14 


DATA 


&9A 




15 


FOR J 


^&40C5TO 




&40C5+1U 


READ 




A -'POKE I, 


A: 




NEXT 


1 




17 


POKE 


&4000, 5: 




CALL 


&40C5: 




INPUT "REMOTE 




SUR ON ?' 


;A$ 


18. 


"Z'TALL &40C5 



Vous disposez de deux magnetophones avec votre inter- 
face cassette ; or, a partir du BASIC, vous ne pouves 
en telecommander qu'un seul... 

A partir du BASIC, oui, mais a partir de 1' assembleur 
... En 4BF28, se situe la routine de telecommande des 
2_ magnetophones. En effet lorsque vous inversez l'in- 
terrupteur REMOTE, ce n'est pas le hardware qui tra- 
vallle mais le software. Lors de l'appel en &BF28 

(CALL) : 



si ACC = 3 — > REMOTE OFF 




si ACC = 5 » REMOTE ON 




or 3 = 5XOR6 et 5 = 3XOR6 




done le listing en assembleur sera : 






Daniel Glazman 



Vos amis 



connaissentils [TRACE 
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le DOS de A a Z 



COPY 

(suite) 



Le Modele 1 possede plusieurs Systemes d 1 Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffe- 
rents systemes ont beaucoup de points communs, 
particulierement ceux de la "lignee" TRSDOS- 
NEWD0S-NEWDOS80-LD0S, qui s'inspirent tous, a 
quelques details pres, du TRSDDS de Tandy (version 
initiale 2.1). Nous publierons regulierement sous 
forme de fiches pratiques, les commandes de ces 
differents DOS, classees alphabetiquement . Ces 
fiches ne pretendent pas remplacer les manuels 
originaux qu ' il est imperatif de posseder (il 
n'etait pas envisageab'le de puDlier sous cette forme 
1 'equivalent de plusieurs centaines de pages ...). 

Leur but est de fournir a l'utilisateur une 
information rapide d'acces (classement alphabetique) , 
pratique (exemples d 'utilisation ) , comparative 
(differents DOS) et dans une langue qu'il est cense 
connaitre (francais) . . . 

Les DOS les plus repandus ont ete retenus pour 
constituer ces fiches. Ce sont le TRSDOS versicn 2.3 
de Tandy, le NEWDOS80 version 2 d'Apparat et le 
LDOS version 5.0 de Lobo Drives International . En 
regie generale, nous nous baserons 3ur les commandes 
du TRSDOS, en signalant les differences ou les 
apports rencontres dans les autres systemes 
d 'exploitation. 



Ncus poursuivons dans ce numero la description des 
differents formats de la commande COPY sous NEWDOS 80 
V2 par 1' etude du format 5. 

FCRMAT 5 



CCPY,L:]dnl[=tc1JL,T0],[:du2JL=tc2],mm/j.)/aaL,YjL,K] 
[ .NDMW J [ , FMT J L , NFMT] L ,SPDN=du -J L , DPDN=du4] 
L,SPW=mot de passe 1][,NDPW=mot de passe 3J 
L , DDNDJ L , 0DN= nom 1 J [ , KDNj [ , KDDj L , NDN=nom 2J 

[,SN=nom 3J [, USDj [,BDU] [,UBBJ 



Ce format realise une copie globale de disquette avec 
des specifications par defaut des unites de disque : 
dn1 (source) et dn2 (destination) fournies par PDRIVE. 
Les disquettes source et destination doivent avoir les 
memes nombres de secteurs par granule, granules par 
lump et secteurs par piste pour que la recopie puisse 
se derouler normalement, le format 6 sera utilise dans 
le cas contraire. 



Les options du fornat 5 
sont les sulvantes : 



= tcl 

(TRACK COUNT) 



= tc2 

(TRACK COUNT) 



mm/ jj/aa 



Y 
(YES) 



Nombre de pistes de DRIVE source a pren- 
dre au lieu de la valeur par defaut du 
DRIVE Source fournie par PDRIVE. 



Nombre de pistes du DRIVE destination 
a prendre en compte en lieu et place de 
la valeur par defaut du DRIVE destina- 
tion fournie par PDRIVE. 



Date ecrite sur la disquette destination 
cette date peuc etre omise avec le for- 
mat 5 le plus simplifie : COPY 1. 



La disquette destination peut contenir 
des donnees prealablement ecrites. Y est 
mutuellement exclusif avec ODN, ODPW, 
DDND, KDN ou KDD (Y est la valeur par 
defaut). 



Conventions d'ecriture 



Dans la description des commandes, les mots en 
caracteres majuscules designent les commandes 
proprement dites, ainsi que les mots-cles associes. 
Les mots en caracteres minuscules ne font pas partie 
des commandes oiais en representent la forme. Au 
moment de 1' execution, il faudra leur substituer 
le ou les mots appropries. Parroi ceux-ci, nous 
trouverons par exemple : "nomfich", qui designe 
un nom de fichier, "motpasse" qui signifie qu'un 
mot de passe (password) est attendu a cet endrolt. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnes devrait lever toute ambiguite. 
Enfin, 11 faut signaler que le NEWDOS80 emploie 
indifferemment la virgule ou l'espace comme 
separateur dans les commandes. 



(NO) 



ND.-1W 

(ND DISKETTE) 

(MOUNT WAIT) 



FMT 
(FORMATTING) 



La disquette ne doit contenir aucune don- 
nees. N est mutuelleemnt exclusif ave: 
Y, ODN, ODPN. DDND, KDN ou KDD. 

Le DOS suppose que les dlquettes sont 
montees dans les unites de disque spe- 
cif iees. Aucun message de demande d' in- 
sertions ou d'erreur n'est affiche. Si 
NDMW est specifie sar.s specification de 
FMT ou NFMT alors la format par defaut 
est FMT (disquette destination a for- 
matter) . 



Le D03 procede au funuatta&e de la dis- 
quette destination avant de realiser la 
recopie de donnees. FMT est mutuellement 
excusif avec NFMT. Dans le cas oil ni FMT 
ni NFMT, ni NDMW ne sont specifiees alors 
le message suivant est affiche ' FORMAT 
DISKETTE ? (Y OR N) '. 



TRACE N° 6 - Juillet 1983 - 65 



NFMT (NO 
FORMATTING) 



iLe DOS ne formatte pas la disquette des- 
tination avant de recopier les donnees. 
L'utilisateur doit s'assurer que celle- 
ci a ete correctement formatte. 



SPW=mot de passe 1 (pour disquette source). Si les 
(SOURCE pets de passe sont valides (option SYS- 

PASSNORD) TEM AA=Y) et AR=N alors l'ordre COPY 

necessite une corrsspondance exacte ou- 
tre le mot de passe principal de la dis- 
quette source et mot de passe 1 fourni 
par l'utilisateur, si ce n'est pas le 
cas la copie est interrompue. 

NDPW=mot de passe 3 ( nouveau mot de passe pour dis- 
(NhiW DKST1NA- Iquette destination). NDPW est mutuelle- 
TION PASSWORD flment exclusir avec BDU. 

DDND 

(DISPLAY DES- lAffichage de l'ancien nora et de l'an- 
TINATION NAME cienne date de la disquette destination. 
AND DATE) DDND est mutuellement exclusif avec Y, 

N et NDMW. 

ODN=nom 1 (ancien nom de la disquette destination) 
(OLD DESTINA- |Si celui-ci n'est pas egal a nom 1 alors 
TION NAME) le DOS interrompt la sequence de recopie 

laissant a l'utilisateur 1' initiative 
de poursuivre ou non la sequence. ODN 
est mutuellement exclusif avec Y, N et 
NDMW. 



KDN 

(KEEP DESTI- 
NATION NAME) 

KDD 

(KEEP DESTI- 
NATION DATE) 

NDN=nom 2 
(NEW DESTI- 
NATION DATE) 



USD 

(USE SOURCE 

DATE) 



SN=nom 3 
(SOURCE NAME) 



BDU (BYPASS 
DESTINATION 
UPDATE ) 



La disquette destination conserve son 
ancien nom au lieu de recevoir celui de 
la disquette source. KDN est mutuelle- 
ment exclusif avec Y, BDU et NDN. 

La disquette destination garde son an- 
cienne date au lieu de recevoir mm.'Jj/ 
aa de la commande COPY. KDD est mutuel- 
lement exclusif avec Y, N, BDU, et USD. 

Nouveau nom de la disquette destination) 
La disquette destination prend nom 2 
comme nom au lieu de recevoir celui de 
la disquette source. NDN est mutuelle- 
ment exclusif avec BDU et KDN. 

La disquette destination utilise comme 
date celle de la disquette source au 
lieu de recevoir mm/jj/aa. Fourni par 
l'utilisateur USD est mutuellement ex- 
clusif avec KDD et BDU. 



(Nom de la disquette 
de la disquette sourc 
nom 3 un message est 
permettant a l'utilis 
si oui ou non il veut 

Interdlt la raise a jo 
destination. En plus 
secteurs source vers 
tination le format 5 
ment a cette disquett 
du BOOT et de PDRIVE 
fichier destination B 
gslement transmis le 
mot de passe prineipa 
DIR/SYS. BDU interdit 
est mutuellement exel 
NDPW et USD. 



source). Si le nom 
e est different de 
fourni par le DOS 
ateur de decider 
effectuer la copie 

ur de la disquette 
de la recopie des 
la disquette des- 
transmet normale- 
e les informations 
a 1' interieur du 
OOT/SYS ; sont e- 
nom, la date, le 
1 dans le fichier 
ces recopies, il 
usif avec KDN, NDN, 



UBB 

(USE BIG 
BUFFER ) 



Cette option sans usage Sas la version 
2 de NEWDOS 80 a ete maintenue pour con- 
server une compatibility directe avec 

la version 1 qui ne permettait pas aux 
possesseurs d'un seul DRIVE d'utiliser 
la zone memoire RAM au-dessus de 70OOH 
pour l'ordre COPY. Si l'utilisateur vou- 
lait forcer le DOS a exploiter 1' ensem- 
ble de la memoire RAM (jusqu'a HIMEM) 
ce parametre UBB devait etre specifie. 



Index des 
mots-cl6s 



La liste des mots-cles figurant ci-dessous est 
destinee a etre exploitee par le programme de 
gestion des articles decrit dans le numero 1 de 
TRACE (pages 58 a bh) . Le format est le suivant: 

Nom abrege de 1' article, numero de page : 1 a U 
mots-cles. 

En prenant 1 'habitude d'entrer cette liste a 
chaque numero de TRACE, vous constituerez ainsi une 
petite base de donnees vous permettant de trouver 
plus efficacement et plus rapidement 1' article que 
vous cherchez . Blen entendu, cette liste est donnee 

a titre i ndi r.stl f, et vous potirrez toujours en mo- 
difier ou en completer le contenu, afin de 1 'adapter 
a vos besolns ; mais avant toute chose, vous devez 
vous imposer une certalne normalisation des mots- 
cles (en principe, ils sont limites a 12 caracteres) 
PROGRAMME par exemple, indiquera toujours qu'un 
listage de programme est donne dans i'artiele. Pour 
cela aussi , faites-nous part de vos Idees! 



INTERFACE MDX2. 18 : ESSAI. DISQUETTES . 

MATERIEL. KIT 
GALETTES , 19 : ESSAI. GALETTES. WAFERS. 

MATERIEL 
RENOMMEZ-LES. 20 : MODELE 2. PROGRAMME. 

OUTILS 
TAQUIN. 21 : PROGRAMME. BASIC. JEU 
LOGOTYPE. 24 : PROGRAMME. BASIC. DESSIN . 

ECRAN 
MINI-MONITEUR, 26 : PROGRAMME, BASIC, OUTIL, 

MONITEUR 
CASSE-BRIQUES , 29 : PROGRAMME. BASIC. JEU 
POMPE. 32 : PROGRAMME, ENSEIGNEMENT . GRA- 

PHIQUES 
ROUTE DE NUIT, 34 : PROGRAMME. BASIC. JEU 
NEWDOS80, 40 : ESSAI. LOGICIEL. DOS 
UTILITAIRE, 43 : PROGRAMME. OUTILS. CLAVIER 

MODI 
TRAITEMENT DE TEXTE , 48 : PROGRAMME. TDT 
EXTENSION, 50 : BRICOLAGE. MATERIEL. INTER- 
FACE 
OUTILS. 51 : OUTILS, BASIC. ASSEMBLEUR . 

MONITEUR 
PC1251. 57 : POQUETTE . PC1251 . CE125 . ESSAI 
FACTORIELLES. 58 : POQUETTE. PROGRAMME. 

MATHEMATIQUES 
MIEUX PREVOIR. 59 : POQUETTE. PROGRAMME. 

PREVISION 
RECOPIEZ. 61 : POQUETTE. PROGRAMME. HARD 

COPY 
CE158. 62 : POQUETTE. CE158. INTERFACE. 

ESSAI 
CALCUL MENTAL. 62 : POQUETTE. PROGRAMME. 

ENSEIGNEMENT 
DEUX MAGNETOS. 64 : POQUETTE. PROGRAMME. 

CASSETTES 
DOS DE A A Z. 65 : FICHE DOS 
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Possesseurs de TRS ct de VIC, decouvrez le 

support du troisieme type 





STRINGY 
FLOPPY 

WAFI« 



I in TPaJtricasattt a banit mu/nttutue suns /in) rsl ilfustrt id en tailte rttlk 

et ses lecteurs 

L'E.S.F. (Exatron Stringy Floppy) vous apporte une immense 

souplesse d' utilisation, grace a son branchement direct sur 

votre ordinateur, sans besoin d'interface d' extension. A un 

prix nettement inferieur* au lecteur de disques, sa vitesse 

est surprenante : environ 1 Ko. par seconde, sans aucune 

manipulation, et avec une fiabilite inegalee sur un systeme a 

bande magnetique. Son manuel decrit avec soin et en fran- 

cais, les techniques evoluees de gestion des fichiers 
sequentiels, sur une ou plusieurs unites chainees. Existe aussi 
en coffret avec son systeme d'exploitation, 5 wafers, des pro- 
grammes de demonstration et un classeur de wafers. 
Carantie 3 mois pieces et main-d'ceuvre. 



1- I Z 




Venez voir I'E.S.F. en demonstration perma 

MICRO-ENERGY BOUTISOFT 
92, rue St Lazare 9, rue de Lalande 

75009 PARIS 33000 BORDEAUX 
Tel.: (1) 281.23.17 TeL: (56) 91.55.08 

* Prix T.T.C. conseilles au 1/2/83 : 

TRS-80 Mod 1 Drive 2.495,- TRS-80 Mod 3 Drive 3.495,- 
TRS-80 Mod I Coffret 2.995,- TRS-80 Mod 3 Coffret 3.995,- 
VIC-20/64 bient&t disponible TRS-80 Mod 3 suivant 1 .995,- 



L'autre fournisseur de 

disques pour 
TRS modele ffl ™ 

QUALITE 

Pour cela, nous avons selectionne : 
■ le meilleur controleur qui soit II vous permct dc piloter 
4 disques 5 ou 8 pouces (associe a DOSPLUS et a I'aide d'un 
cable externe). Ses connexions plaquees or vous assurent une fiabi- 
lite a toute epreuve. 
• TANDON, les disques les plus fiables et les plus performants, 

offrant un temps d'acces maximum de 5 ms. 
De plus, I'assemblage, I e montage et les tests individuels sont assu- 
res par nos cquipes competentes (prevoir 48 hcures). Notre garan- 
tie de 3 mois s'etend sur les pieces et la main d'oeuvre. 

PUISSANCE 

Ne vous limitez pas a 175 Ko. par disquette. 

Pour un faible supplement, equipez-vous de disques double face 

en 40 pistes (384 Ko.), ou en 80 pistes (768 Ko). Ces unites peuvent 

etre combinees de facon a satisfaire tous vos besoins, meme si 

votre ordinateur est deja equipe d'un dUque constructeur. 

PRIX 

La, n'ayez plus aucune hesitation. 
Nous vous offrons la 

configuration de base C11§C|UC a 



xm 



pret a fonctionner 

En demonstration permanent chcz 

MICRO-ENERGY BOU TISOFT 

92, rue St Lazare 9, rue de Lalande 

75009 PARIS 33000 BORDEAUX 

Tel. : (!) 281.23.17 Tel. : (56) 91.55.08 

Prix T.T.C conseilles au 1/3/83 1 



I >isq ii i O monte 175 Ko. TRSDOS 
Disquc O monte 384 Ko. sans DOS 
I Hsqui monte 768 Ko. sans DOS 
( un i roU-n r complct sans disquc 



5.995 Disquc Interne stipp. 175 Ko 

7.095 Disquc Interne supp. 384 Ko. 

4.395 Disquc interne mi pp. 768 Ko 

3.295 Dosplus 3 4 MOD 3 



Dcmandcz not re catalogue de produits pour Modele III 



Importation ct Diffusion 

d'Equipemcnt Micro-informatiquc 

34 bis. rue Sorbicr 75020 PARIS 

Tel: fl) 358.44.35 



ImpoTtateur exclusif 
Rcchcrc:hons des revendeurs 
sur toute la France 



-Importation ct Diffusion 

d'Equipirrncnt Microinformatique 

34 bis. rue Sorbier 75020 PARIS 

Tel.: (I) 35844.35 



Irrportatcur exclusif 
Rcchcrchons des rcvendeurs 
sur toute la France 
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BRANCHEZVOUS SUR 
LE FUTUR EN MICRO 
I NFO R MATI Q U E ! 
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